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Anders als die Tageszei- 
tung, die nur von interes- 
santen Begebenheiten be- 
richtet, soll die Fachzeit- 
schrift dem Leser greif- 
baren Nutzen bringen. 
Schnell sichtbar wird die- 
ser, wenn es sich um fi- 
nanzielle Einsparungen 
handelt oder wenn 
durch geeignete Program- 
me mehr mit dem Com- 
puter anzufangen ist. 
Etwas mühsamer, doch 
im Endeffekt ergiebiger, 
ist die Aneignung von 
Wissen und die Fähig- 
keit, das Wissen in die on 
Tat umzusetzen. 

Unsere Zeitschrift für 
den C16, C116 und den 
Plus/4 nützt Ihnen in 
vielerlei Hinsicht. Ma- 
chen Sie sich ein Bild, 
was Sie unter anderem in 
diesem Heft erwartet. 
Mehr mit dem Computer 
anfangen zu können, ist der 
Wunsch vieler Benutzer. 
Weil schnell etwas sicht- 
bar wird, erfreuen grafi- 
sche Entwürfe sich außer- 
ordentlicher Beebtheit. 
CAD- und Malprogram- 
me unterstützen zwar 
kreatives Gestalten, bieten 
aber meist nicht die Mög- 
lichkeiten einer grafi- 
schen Programmierspra- 
che. Drehen, Vergrößern 
und Verkleinern von ent- 
worfenen Figuren sind 
Optionen von meist sehr 
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teuren Programmen. 
Ideal sind die Möglichkei- 
ten, die die Turtle-Grafik 
einer Programmierspra- 
che wie LOGO bietet. 

In Unterprogrammen las- 
sen sich Figuren, wie zum 
Beispiel eine Blume, de- 
finieren. Durch Angabe 
von Koordinaten, Win- 
kel und Längen, er- 
scheinen die Figuren an 
beliebiger Stelle, in belie- 
biger Größe und beliebig 
gedreht auf dem Bild- 
schirm. Programmschlei- 
fen sorgen für eine belie- 
bige Anzahl von Anein- 
anderreihungen der Figu- 
ren. Nicht die Schildkröte, 
englisch Turtle, zeichnet 
im vorliegenden Pro- 
gramm IGELGRAFIK die 
Figuren. Wie der Na- 

me bereits vermuten 

läßt, nennt sich die 
Schildkröte in diesem 
Programm Igel. Deutsche 
Befehlsworte wie vor- 
wärts und rückwärts, 
links und rechts steuern 
den Lauf dieses kyberne- 
tischen Tieres. Schön wä- 
re es, die auf dem Bild- 
schirm erscheinenden 
Grafiken auch auf jeden 
Drucker zu bekommen. 
Obwohl für Commodore- 
Drucker bereits im C16- 
P/4-SPECIAL eine 
HIRES-Hardcopyroutine 
erschien, verstummten 
nicht die Stimmen unse- 
rer Leser, die gerne mehr 
über Hardcopies wüßten. 
Nicht jeder am Commo- 
dore-Rechner zu betrei- 
bende Drucker ist auch in 
punkto Grafik Commo- 
dore-kompatibel. Da nicht 
auf die Besonderheiten 
hunderter Drucker einge- 


gangen werden kann, 
schien ein Grundlagen- 
artikel die richtige Lö- 
sung zu sein. Sie erfahren 
in unserem Heft, wie der 
Grafikbildschirm organi- 
siert ist und wie die Infor- 
mation konvertiert wer- 
den muß, um den Bild- 
schirminhalt auch dem 
Drucker richtig zu über- 
geben. 

Sie finden Listings für 
Commodore-, Epson-, 
IBM- und sonstige Druk- 
ker detailliert erläutert 
mit zusätzlichen Infor- 
mationen, wie diese abge- 
ändert werden können, 
um einen etwas anderen 
Ausdruck zu erreichen. 
Auch für nicht grafikfä- 
hige Drucker gibt es ei- 
nen Weg, mit dem Grafi- 
ken ausgedruckt werden 
können. Warum ein Kreis 
nicht immer ein Kreis 
wird, und wie er doch 
kreisrund auf dem Druk- 
ker wiedergegeben wer- 
den kann, erfahren Sie 
aus dem Beitrag in diesem 
Heft. Weiter geht es dann 
im nächsten Heft mit 
Hardcopies in verschie- 
denen Größen und Dich- 
ten 

Nach den Beiträgen zum 
Befehlssatz der CPU wur- 
de der Wunsch laut, 

auch kommentierte An- 
wendungsbeispiele für 
Maschinensprache zu 
sehen. Mit einer ganz be- 
sonderen Technik befaßt 
sich der Artikel 
SYSTEMCHIRURGIE. 
Durch Verbiegen von 
sogenannten Sprungvekto- 
ren wird der Rechner ver- 
anlaßt, bestimmte Funk- 
tionen in etwas anderer 


als der gewohnten Weise 
auszuführen. So läßt sich 
der eingebaute BASIC- 
Editor auch als Textedi- 
tor benutzen, das Cursor- 
blinken ausschalten und 
die ständige Ausgabe der 
Systemzeit, unabhängig 
von etwaigen laufenden 
Programmen, bewirken. 
Die Anwendungsmöglich- 
keiten für diese Technik 
sind zahllos. Viele Wün- 
sche, die BASIC 

nicht erfüllt, lassen sich 
verwirklichen. 
Experimentieren lohnt 
sich. 

Der Plus/4 mit seinem 
Userport und seiner RS- 
232-Schnittstelle eignet 
sich ideal zum Anschluß 
eines Modems oder eines 
Akustikkopplers. Der 
Plus/4 ist wohl einer der 
preiswertesten Rechner 
für die Datenfernüber- 
tragung. Deshalb begin- 
nen wir jetzt auch über 
DFÜ zu berichten. Ein 
DFÜ-Lexikon vermittelt 
die erforderlichen Grund- 
begriffe. 

Mit nur zwei POKEs und 
einem SYS lassen sich 
sequentielle Dateien in 
Programme umwandeln. 
Ob es sich um per DFÜ 
empfangene Listings 
oder um mit den Möglich- 
keiten einer Textverar- 
beitung überarbeitete Pro- 
gramme handelt, Watson 
und Holmes lösen in ei- 
ner Geschichte den Fall 
auf ziemlich unkonven- 
tionelle Art. 

Klar, daß wir die Reihe 
über Programmierung in 
BASIC fortsetzen. 
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Unter Dach 
und Fach 


Wer mit Computern arbeitet, muß Daten und 
Programme speichern können. Externe Speicher kennt jeder: 
Diskette, Magnetband und Plattenspeicher. 

Aber auch der Rechner selbst braucht Speichermöglichkeiten: 
Arbeitsspeicher, Zwischenspeicher, Festwertspeicher und 
andere. Diese auf der Platine des Rechners untergebrachten 
Speicher sind alle in Chips untergebracht. 
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Grundlagen 


Entwicklungsgeschichte 
der Massenspeicher 


Unter Dach 
und Fach 


rogramme und Daten werden in 
P binär kodierter Form abgespei- 


chert. Jeweils acht Bit werden zu 
einem Speicherplatz zusammenge- 
faßt und erhalten eine Adresse. Eine 
spezielle Adressierlogik macht es 
möglich, jeden Speicherplatz einzeln 
anzusteuern. Dabei ordnet der Spei- 
cher einer vorgegebenen Adresse das 
jeweilige Datenwort (acht Bit) zu. 
Die Anzahl der Gesamtbit eines Spei- 
chers ist immer eine Potenz von 2. 


210 Bit — 1024 Bit = 1 KBit 
Bit — 2048 Bit — 2 KBit 
215 Bit = 32768 Bit = 32 KBit 
216 Bit — 64536 Bit = 64 KBit 


Bekanntlich ist das Bit (Binary Digit) 
die kleinste Darstellungseinheit für 
binäre Daten (0 oder 1). Um eine grö- 
Bere Anzahl von alphanumerischen 
Zeichen, etwa das Alphabet und die 
Ziffern von 0 bis 9, sowie Sonder- und 
Steuerzeichen darstellen zu können, 
werden jeweils acht Bit zu einer Ein- 
heit zusammengefaßt: zu einem Byte. 
Ein Byte ermöglicht so die Darstel- 
lung von 256 verschiedenen Zeichen. 
256 ist die Anzahl der möglichen 
Kombinationen von 0 und 1, wenn 
insgesamt acht Stellen zur Verfügung 
stehen. 

In der Praxis wird zu denacht Bitnoch 
ein sogenanntes Prüfbit „gepackt“ (so- 
daß es eigentlich neun Bit sind). 

Die acht Datenbit können aufdrei un- 
terschiedliche Arten belegt werden: 


Binäre Darstellung. 

Hier können Dezimalzahlen von O bis 
255 (=256 Stück) in einem Byte ge- 
speichert werden. 

Dies ist im allgemeinen die günstigste 
Darstellungsart und bedingt die gün- 
stigste Speicheraufteilung. 


Numerische Darstellung. 

Hier wird ein Byte in zwei Tetraden 
unterteilt. Im sogenannten „gepack- 
ten Format“ lassen sich so zwei Dezi- 
malstellen verschlüsseln. 


Alphanumerische Darstellung. 

Wie bei der numerischen Darstellung 
wird auch hier das Byte in zwei Zonen 
von je vier Bit unterteilt: Die rechte 
Hälfte des Byte ist das niedrigwertige 
Bit und die linke Hälfte das höherwer- 
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Das Layout der verschiedenen 
Speicherchips ist sehr ähnlich. Die ver- 
schiedenen Technologien sind nicht 

zu unterscheiden. 
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Die dunklen Flächen zeigen 
tausende von Speicherzellen. 


tige Bit. Dezimalziffern werden nur 
in den niedrigwertigen Bit verschlüs- 
selt, während Buchstaben und Son- 
derzeichen durch die Kombination 
einer Ziffernverschlüsselung (s.o.) 
und einer Zonenverschlüsselung in 
den übrigen Bit vorgenommen wird. 
Speichergrößen werden dahernichtin 


. Bit, sondern in Byte angegeben: 


219 Bit = 524.288 Bit = 512 KBit 

— 64 KByte 

220 Bit = 1.048.576 Bit = 1.024 KBit 
— 128 KByte 

221 Bit = 2.097.152 Bit = 2.048 KBit 
— 256 KByte 

22? Bit = 4.194.304 Bit — 4.096 KBit 
= 512 KByte 
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Beim RAM (Random Access Memo- 
ry) handelt es sich um einen Speicher 
mit wahlfreiem Zugriff. Er kann wahl- 
weise ausgelesen oder mit neuen 
Daten beschickt werden. Aus diesem 
Grunde spricht man auch von einem 
Schreib- und Lesespeicher. Wahlfrei 
bedeutet aber auch, daß man sich 
Daten (über Adressen) auswählen 
kann, im Gegensatz zu einem Spei- 
cher, der nur den kompletten Inhalt 
freigibt. RAM-Speicher ermöglichen 
einen direkten Zugriff durch direkte 
Adressierung. 

Eine weitere Eigenschaft zeichnet das 


Irz66... 100 + — COLUMN 
2332...2332=— OUTPUTS 


— — COLUMN 


OUTPUTS 


RAM aus. Nach dem Einschalten des 
Rechners enthält der RAM-Speicher 
irgendeine zufällige Information, also 
nicht nur Nullen. Das resultiert aus 
der Flüchtigkeit dieses Speicherme- 
diums: Beim Abschalten des Rech- 
ners verliert er die gespeicherten In- 
formationen und befindet sich somit 
in einem undefinierten Zustand, man 
kann also auch nicht sagen, daß er 
keine Informationen enthält, eben 
nur ungeordnete. 

Das RAM benötigt zum Erhalten der 
auf ihm gespeicherten Information 
elektrische Energie. Durch die Ent- 
wicklung extrem stromsparender 
RAM-Bausteine wurde es möglich, 
diese bei ausgeschaltetem Rechner 
mit Batteriestrom zu versorgen. Dies 
bedeutet, die Information bleibt er- 
halten, solange der Ladezustand der 
Batterie es erlaubt. Bei erneutem Ein- 
schalten des Rechners wird die Batte- 
rie nachgeladen. Man spricht hier von 
Batteriepufferung. 


ROM 


Wie der Name ROM (für Read Only 
Memory) schon sagt, können hier nur 
Daten gelesen werden. Weil der Infor- 
mationsinhalt des ROM nicht verän- 
dert werden kann, spricht man auch 
von einem Festwertspeicher. ROM- 
Chips haben eine wichtige Funktion 
im Rechner: Sie enthalten beispiels- 
weise Betriebssystem, Programmier- 
sprachen oder eine Laderoutine (für 
das Betriebssystem auf der Diskette 
und anderes). Beim Einschalten des 
Rechners wird ein Programm von ei- 
nemROM gebootet (also automatisch 


DAS CAD - SYSTEM 
FÜR IHREN 
C16/116,PLUS4 


CAD 12: a 


jetzt 99 Ebenen 
doppelt soviele Editierbefehle 


-5 6 
Zoombereich von 10 bis 10 
jetzt mit Objektfangfunktionen 


und bliebiger Größe 


maßstabsgetreue Ausgabe der 
Drucker oder Plotter 


Floppy-Datassetten Betrieb 
auch als Hardwaremodul lieferbar 


Bemaßung und Beschriftung in jeder Richtung 
Zeichnung 


konfigurierbar für Ein-Floppy, Zwei-Floppy oder 


geladen). Dieses Programm ermög- 
licht erst den Dialog mit dem Compu- 
ter (über Tastatur, Bildschirm). Meist 
ist dieses Programm entweder ein La- 
der für das Betriebssystem oder das 
Betriebssystem selbst. 

Der Inhalt des ROM ist unveränder- 
bar und wird auch beim Ausschalten 
des Rechners nicht gelöscht. Zum Er- 
halten der gespeicherten Information 
ist keine Energie notwendig. 
Festwertspeicher sind wegen dernicht 
notwendigen Adressierung sehr 
schnell und leicht in Systeme zu inte- 
grieren. 


PROM 


Das PROM (Programmable Read On- 
ly Memory) kann vom Anwender nur 
einmal programmiert werden. Die In- 
formationen werden eingebrannt und 
können dann nicht mehr geändert 
werden. Dieser programmierbare 
Festwertspeicher verhält sich darauf- 
hin genau wie ein ROM. 

Ob ein ROM oder ein PROM in ein 
Gerät eingebaut wird, hängt im we- 
sentlichen von der produzierten 
Stückzahl des Gerätes ab. Bei großen 
Serienfertigungen wird man meist 
ROMs verwenden, deren Entwick- 
lung zwar sehr teuer ist, die Massen- 
produktion aber billig wird. PROMs 
müssen einzeln programmiert wer- 
den, daher eignen sie sich mehr für 
kleine Serien oder sogar Einzelanferti- 
gungen. 


Wie das PROM kann auch das 
EPROM (Erasable Programmable 
Read Only Memory) vom Anwender 


programmiert und dann wie ein ROM 
benutzt werden. Das EPROM ist ein 
löschbarer Speicher. Mit Hilfe von 
UV-Licht kann eine Programmierung 
rückgängig gemacht, das EPROM ge- 
löscht werden. Daraufhin istes wieder 
bereit, neue Informationen aufzuneh- 
men und zu speichern. Daher eignen 
sich EEROMSs hervorragend für Soft- 
ware-Entwicklungen. Meist wird es 
nicht fest auf Platinen verlötet, son- 
dern nur in IC-Sockel gesteckt, um es 
zum Löschen und erneuten Program- 
mieren von der Platine wieder entfer- 
nen zu können. 

Der EPROM-Chip besitzt auf seiner 
Oberfläche ein Fenster für den 
Löschvorgang. Dies unterscheidet ihn 
schon rein äußerlich von anderen 
Chips. 

Zum Löschen des Speicherinhaltes 
wird der Chip unter eine spezielle 
Löschlampe (UV-Licht) gebracht. 


EEPROM 


EEPROM (Electrical Erasable and 
Program Read Only Memory) ist eine 
Weiterentwicklung der zuvor be- 
schriebenen EPROM-Chips. Im Ge- 
gensatz zu diesen müssen sie nicht mit 
UV-Licht gelöscht werden, um neu 
programmiert werden zu können. 
Einzelne Speicherzellen können bei 
erneuter Programmierung einfach 
überschrieben werden. Sie sind bedie- 
nungsfreundlicher als EPROMs und 
zeichnen sich zudem durch eine 
höhere Lebensdauer aus, durch den 
Wegfall der möglichen UV-Bestrah- 
lung. 

Dipl. Ing. (FH) Oliver Rosenbaum 
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GEFUNDEN! 


Hat man es mit größeren Datenmengen oder 
großen Dateien zu tun und will man rationell, also schnell 
mit ihnen umgehen können, stößt man sehr bald auf 
das Problem des Suchens. Da es verschiedene Such- 
verfahren gibt, muß man je nach Art der zu bearbeitenden 
Daten zwischen ihnen wählen. 


== 
RS 


ier sollen nur die gebräuchlich- 
H sten Verfahren aufgezeigt wer- 

den. Es handelt sich dabei um 
Suchverfahren, die aus dem mathe- 
matisch-technischen Bereich stam- 
men, sich bedingt aber auch in der 
Textverarbeitung anwenden lassen. 


1. Sequentielles Suchen 


Das einfachste „Suchen“ besteht dar- 
in, jeden Wert der Datenmenge auf 
das Merkmal hin zu prüfen, das derge- 
suchte Wert aufweisen soll. Zwar führt 
auch diese Methode zum gewünsch- 
ten Ziel, hat jedoch den Nachteil, daß 
sie unter Umständen sehr viel Zeit in 
Anspruch nehmen kann. Steht der ge- 
suchte Wert beispielsweise an letzter 
Stelle in der Reihenfolge, in der ge- 
prüft wird, müssen alle Werte der 
Menge auf das entsprechende Merk- 
mal hin untersucht werden. 

Ein „Suchen von zwei Seiten“ bringt 
hier auch keine Verbesserung. Man 
könnte etwa abwechselnd von vorne 
und von hinten einen Wert unter- 
suchen. 


ABCDEFGHIJK 
042 


Menge 
Reihenfolge 135... 
der Untersuchung 


Liegt der gesuchte Wert jedoch in der 
Mitte, hat man den gleichen unlieb- 
samen Nebeneffekt, alle Werte unter- 
sucht zu haben. 


Beispiel: 
Suchen einer Nullstelle in einem vor- 
gegebenen Bereich einer Funktion. 


Nulistelle 


Ablaufdiagramm hierzu: 


2. Sprungverfahren 


Beim Sprungverfahren wird ähnlich 
wie beim sequentiellen Suchen das zu 
untersuchende Intervall in größere 
Abschnitte unterteilt, die daraufhin 
geprüft werden, ob ein Wert mit dem 
gesuchten Merkmal (etwa der Null- 
stelle) hier enthalten ist.- 


Ist ein solcher Abschnitt gefunden, _ 


wird in diesem sequentiell gesucht 


(5. 0.). 


Abschnitte 


Beispiel: 


3. Intervallsuchverfahren 


Die Menge, in welcher sich der ge- 
suchte Wert befindet, wird zunächst 
halbiert und es wird untersucht, ob 
sich der gesuchte Wert im ersten oder 
im zweiten Intervall befindet. Das 


Intervall, welches den gesuchten Wert 
enthält, wird wiederum halbiert... 


« 
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3. a) Im folgenden Beispiel ist „L“ der 
gesuchte Wert. (-) bedeutet, daß in 
diesem Bereich der Wertnicht vorhan- 
den ist, (+) kennzeichnet hier das 


Intervall, das ein Element mit dem 
Merkmal enthält, nach dem gesucht 
wird. 

Zur Vereinfachung isthiereine gerade 
Anzahl von Elementen gegeben, so- 
mit wird im letzten Intervall nur noch 
ein Wert übrigbleiben. (Andernfalls 
müßte man zusätzliche Schritte zum 
Abfragen der Grenzen oder der zu un- 
tersuchenden Wertemenge einfügen. 


l. Suchvorgang 
----------- IH +t+t++++++ 
ABCDEFGHIJKLMNOP 
2. Suchvorgang 

++++/----- 
ABCDEFGHIJKLMNOP 


3. Suchvorgang 
--/++ 
ABCDEFGHIJKLMNOP 


4. Suchvorgang 
-/+ 
ABCDEFGHIJKLMNOP 


„L“ ist hier als einzigster Wert im mög- 
lichen Wertebereich übrig geblieben 
und damit gefunden. 

In diesem Beispiel sind also nur vier 
Schritte notwendig, um den an einer 
beliebigen Stelle stehenden Wert zu 
finden, nach dem gesucht wurde. 


intervallgrenze = 


intervallgrenze 
" rechte Qrenze 


j 
j 


intervallgrenze 
= linke Grenze 


3. b) Ein weiteres Beispiel für das 
Intervallsuchverfahren ist die, aus der 
Mathematik bekannte, Intervall- 
schachtelung: 

Gesucht ist beispielsweise die Kon- 
stante Pi, auf zwei Stellen hinter dem 
Komma genau. Hier muß so lange das 
Intervall halbiert werden, bis die ge- 
forderte Genauigkeit (Stellen hinter 
dem Koma) erreicht worden sind. 


Intervall 3,00 bis 4,00 
Intervall 3,00 bis 3,50 
Intervall 3,00 bis 3,25 
Intervall 3.125: bis 3325 
Intervall 3,125 bis 3,1875 
Intervall 3,125 bis 3,1563 
Intervall 3,1407 bis 3,1563 
Intervall 3,1407 bis 3,1485 


a a N 


linke Grenze =» Xmin 


(re.Grenze - li.Grenze) / 2 


Nulistelie links 
von der iIntervallgrenze 


nein 


Nulistelle rechts 
von der Intervaligrenze 


Nullstelle auf 
der intervallgrenze 


nein 


keine Nullstelie 
vorhanden 


Nun kann abgebrochen werden, da 
die zwei ersten Stellen hinter dem 
Komma konstant bleiben. 

Der Wert für Pi kann hier mit 3,14 im 
Rahmen der gewählten Genauigkeit 
angenommen werden. 


3.c) Anhänd eines Fließschemas soll 
das Suchen der Nullstelle einer Funk- 


tion mit Hilfe des Intervallverfahrens 
gezeigt werden. 


Zusammenfassend ist zu sagen, daß 
ein qualitativer Vergleich der unter- 
schiedlichen Suchverfahren schlecht 
möglich ist, da die Auswahl des Such- 
verfahrens in sehr starkem Maße von 
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dem zu programmierenden Problem 
und nicht zuletzt von dem verwende- 
ten - meist vorgegebenen - Speicher- 
medium abhängig ist. 
Bandkassetten etwa lassen im allge- 
meinen nur ein sequentielles Suchen 
zu, da sie meist in nur einer Richtung 
hintereinander Daten speichern kön- 
nen. 
Auch die Menge der zu bearbeiten- 
den (hier zu durchsuchenden) Daten 
kann für die Wahl eines bestimmten 
Suchverfahrens ausschlaggebend 
sein. Bei kleineren Datenmengen ist 
ein gutes, also sehr schnelles Suchver- 
fahren oft zu aufwendig und damit 
unwirtschaftlich. 
Bei sehr großen Datenmengen ist 
abzuwägen, ob nicht zunächst die Da- 
tenbank nach bestimmten Gesichts- 
punkten sortiert werden kann, sodaß 
bei einem Suchdurchgang nicht die 
gesamte Datenmenge zur Verfügung 
steht, sondern nur der in Frage kom- 
mende Teil. Dies ist besonders dann 
von Vorteil, wenn sehr oft „gesucht“ 
wird. - 

Dipl. Ing. (FH) Oliver Rosenbaum 


bp RN! 42% 
. 


Ob in Indien, Brasilien oder im Sahel: 
Die ökologische Zeitbombe tickt. 

So könnenz.B. Brandrodung oder 
Monokulturen für den Export Mensch 
und Natur teuer zu stehen kommen. 
»Brot für die Welt« fördert 
Maßnahmen zur Aufforstung und zur 
Wiedereinführung bodenschonender, 
kostengünstiger Landbausysteme. 
Postfach 476, 7000 Stuttgart 1 


Brot 


für die Welt 


Spendenkonto: 500 500 500 bei Spar- 
kassen, Banken, Volks- und Raiffeisen- 
banken sowie Postgiro Köln. 


BTIPS & TRICKS 


Eingriffe in 
Rechner- 
Routinen 


Mit derselben Technik, durch die die gefürchteten 

Computerviren erzeugt werden, lassen sich viele nütz- 
liche Utilities programmieren. Wir zeigen Ihnen, wie 

dies funktioniert; sowohl im Prinzip als auch an 
ausgewählten Beispielen. Wollen Sie den BASIC-Editor 

als Texteditor benutzen, das Blinken des Cursors 

ausschalten oder hätten Sie gar gerne eine ständig 

präsente Systemuhr? Hier finden Sie alles, 
was Sie dazu brauchen. 


Ein kleiner Systemeingriff 
kann bereits etwas bewir- 
ken, was sonst mit seiten- 
langen Programmen be- 
werkstelligt werden muß. 
So sind nur wenige Pro- 
grammzeilen notwendig, 
um den eingebauten BA- 
SIC-Editor in einen lei- 
stungsfähigen Texteditor 
umzufunktionieren. Oft 
wird gewünscht, mit dem 
Rechner wie gewohnt zu 
arbeiten. Nur eine Klei- 
nigkeit sollte anders 

sein. 
Eine Uhr zu programmie- 
ren, die ständig die rich- 
tige Zeit anzeigt, ist wei- 
ter nicht schwer. Jedoch 
wenn Disketten forma- 
tiert, BASIC-Programme 
abgetippt und aufgeru- 
fen werden und vielleicht 
sogar noch in die Text- 
verarbeitung SCRIPT/ 
PLUS gegangen wird und 
die Uhr in der linken obe- 
ren Ecke des Bildschirms 
springt immer noch jede 
Sekunde weiter, dann mag 
dies manchem als Hexerei 
erscheinen. Dennoch ist 
es möglich. Das Zauber- 
wort heißt Systemeinbin- 
dung. 

Was ist nun Systemeinbin- 
dung? Wir verdeutlichen 
uns das am besten an ei- 
nem Beispiel. Was pas- 
siert, wenn wir 
PRINT“ U“ eingeben, 
dürfte bekannt sein. Es er- 
scheint der Buchstabe U 
auf dem Bildschirm. Je- 
doch muß dies nicht unbe- 


dingt sein. Genausogut 
hätte der Computer auch 
den Bildschirm löschen 
oder „Happy Birthday“ 
spielen, womöglich uns 
gar ein X statt eines U 
vormachen können 

Der BASIC-Interpreter 
und das Betriebssystem 
unseres Rechners bestim- 
men, was mit PRINT“ U“ 
geschehen soll. Wenn wir 
Routinen des Betriebssy- 
stems oder des BASIC- 
Interpreters abändern, 
können wir den Rechner 
veranlassen, ein X statt 
eines U auszugeben. 


BETRIEBSSYSTEM 


IM ROM 


Da das Betriebssystem im 


ROM liegt, kann es leider 
nicht geändert werden. 
Wenn unser Rechner 64 
KByte Hauptspeicher be- 
sitzt, könnten wir den 
ROM-Inhalt ins RAM ko- 
pieren, wo sich nach Be- 
lieben Änderungen vor- 
nehmen lassen. Es müs- 
sen nur noch alle Um- 
schaltungen ins ROM aus 
dem Betriebssystem ent- 
fernt und die RAM-Bank 
eingeschaltet werden. 
Dieser Weg ist nicht der 
einzig gangbare. Es gibt 
noch einen einfacheren, 
der auch mit Rechnern ge- 
ringerer Speicherkapazi- 
tät funktioniert. Dafür ha- 
ben bereits die System- 
programmierer gesorgt. 
Der Schlüssel dazu ist der 


indirekte Sprung. In BA- 
SIC kennen wir nur den 
direkten, wobei auf GO- 
TO eine Zeilennummer 
folgt. Wäre statt dessen 
auch eine numerische Va- 
riable zulässig, Könnten 
Sprungziele durch neue 
Wertzuweisungen ganz 
schön manipuliert wer- 


en. 

Die abgebildete Sprung- 
tabelle zeigt eine Aufli- 
stung aller indirekten 
Sprünge. Die linke Spalte 
zeigt die Adressen, an de- 
nen der indirekte Sprung 
steht. Darauf folgt in 
Assembler-Mnemonics der 
Sprungbefehl. Im RAM- 
Bereich von $0300 bis 


.$0331 stehen die Adres- 


sen, auf die der indirekte 
Sprung letztendlich ver- 
zweigt. Nach dem Dop- 
pelpunkt finden wir die 
dort gespeicherte Sprung- 
adresse in der Reihe 
Low-Byte und Hish-Byte. 
Nach dem Strichpunkt 
kommt die Benennung 
dieser Adresse mit einer 
kurzen, zwischen Klam- 
mern gesetzten Erläute- 
rung. 


Betrachten wir uns die 
Routine BSOUT, die für 
die Zeichenausgabe ver- 
antwortlich ist. Aufgeru- 
fen sollte sie in Maschi- 
nenprogrammen mit 

JSR $FFD2 werden. Mit 
JSR $EC4AB könnten wir 
zwar denselben Effekt er- 
reichen. Allerdings müß- 
ten hierbei zwei Nachtei- 
le in Kauf genommen 
werden: die Kompatibili- 
tät zu den anderen Com- 
modore-Maschinen und 
die Möglichkeit der Rou- 
tinenänderung gingen 
verloren. 


ROUTINEN- 
ÄNDERUNG 


Soll eine Routine durch 
eine neue ersetzt werden, 
so kann diese irgendwo 
an eine nicht genutzte 
Stelle des ungebankten 
RAM-Bereiches von 
$0000 bis $7FFF geschrie- 
ben werden. Bei 16-K- 
Byte-Rechnern geht es 
nur bis zur Speicherstelle 
$3FFF. Es bietet sich zu 
diesen Zwecken der un- 
genutzte Bereich von 


TABELLE INDIREKTER SPRÜNGE 


’ 
‚ 
’ 
r 
' 
r 
’ 


’ 


.8683 jmp ($0300) 86 86 
.870f jmp ($0302) 12 87; 
.8953 jmp ($0304) 5689; 
.8b6b jmp ($0306) 6e 8b ; 
.8bd3 jmp ($0308) d6 8b ; 
.9414 jmp ($030a) 17 94 ; 
8967 jmp ($030c) 6489 ; 
.8b85 jmp ($030e) 88 8b ; 
.8c88 jmp ($0310) 8b Sc ; 
.ce3f jmp ($0312) : 42ce; 
.ce08 jmp ($0314) Oe ce 
.ce0b jmp ($0316) : 4cf4 
‚ffcO jmp ($0318) : 53ef 
.ffe3 jmp ($031a) : 5dee 
‚ffc6 jmp ($031c) 18 ed 
.ffc9 jmp ($031e) 60 ed 
‚ffce jmp ($0320) Oc ef 
‚ffef jmp ($0322) e8 eb 
‚ffd2 jmp ($0324) 4b ec 
.ffel jmp ($0326) 65 f2 
‚ffe4 jmp ($0328) : d9 eb 
.ffe7 jmp ($032a) 08 ef 
„= jmp ($032c) 4c f4 
.f047 jmp ($032e) 4a f0 
‚flal jmp ($0330) a4 fl 
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’ 


IERROR (Fehlermeldäng 
IMAIN (Editor-Schleife) 
ICRNCH (Tokenisierung) 
IOPLOP (Keywort) 
IGONE (Hauptschleife) 
IEVAL (Eval) 

IESCLK _(User-Token) 
IESCPR (User-Keywort) 
IESCEX _(User-Execute) 
ITIME (Interrupt-Uhr) 
CINV (Interrupt) 
CBINV (Break-Interrupt) 
IOPEN (Open) 

ICLOSE (Close) 

ICHKIN  (Chkin) 
ICKOUT (Chkout) 
ICLRCH (Circh) 

IBASIN (Basin) 
IBSOUT (Bsout) 

ISTOP (Stop) 

IGETIN _ (Getin) 
ICLALL (Clall) 
USRCMD (Monitor Break) 
ILOAD (Load) 

ISAVE (Save) 


DD __________ areas 


$065E bis $06EB an, der 
von Commodore ur- 
sprünglich für einen 
Sprachsynthesizer vorge- 
sehen war, nun aber 
brachliegt. 

Weitere Möglichkeiten 
sind ein Teilbereich des 
Prozessorstacks, des 
BASIC-Pseudostacks, der 
Kassettenpuffer bei Dis- 
kettenbetrieb, der RS- 
232-Input-Puffer und 
RAM-Bereiche von 
S1000 bis $7FFF, die 
durch Verlegen von BA- 
SIC-Anfang oder BASIC- 
Ende vor dem Überschrei- 
ben durch BASIC-Pro- 
gramme zu schützen sind. 
Eine solche selbstgeschrie- 
bene Routine bewirkt 
nichts, wenn sie nicht ein- 
gebunden wird. Hierzu 
braucht nur die im 
Sprungvektor eingetrage- 
ne Adresse durch die An- 
fangsadresse unserer neu- 
en Routine ersetzt zu wer- 
den. 

Um dieses gleich einmal 
in der Praxis auszupro- 
bieren, lassen wir bei der 
Ausgabe alle Buchstaben 
U durch ein X ersetzen. 


XSTATT U 


Zuerst sind die hexadezi- 
malen ASCII-Werte für 
U und X zu beschaffen. 
Wir bekommen sie mit: 


PHEXS(ASC(“U“ 
PHEX$(ASC(“X“ 


Nun gehen wir mit 
MONITOR in den Maschi- 
nenmonitor. Dort geben 
wir folgende Befehle ein: 


A 065E CMP #855 
A 0660 BNE $0664 
A 0662 LDA #658 
A 0664 JMP $ec4b 


Der Compare-Befehl ver- 
gleicht, ob ein U vorliegt. 
Falls nein, geht der 
Sprung zur Ausgabe. An- 
dernfalls wird $58, der 
ASCII-Wert für X, in den 
Akku geladen und da- 
durch der Buchstabe X 
ausgegeben. Zur Einbin- 
dung der neuen Routine 
rufen wir auf: 


M324 


In der ersten Zeile steht: 
>0324 4BEC...:.. 


Anstelle der Adresse 
$ECA4B tragen wir die An- 
fangsadresse unserer Rou- 
tine $065E ein. Hierzu 
gehen wir mit dem Cur- 
sor in die betreffende Zei- 
le und ändern sie ab in: 


>0324 5E 06...... 


Nach dem Druck der Re- 
turn-Taste ist das Werk 
vollbracht. Zum Begutach- 
ten wird der Monitor mit 
X und Return verlassen. 
Ein Test gibt Aufschluß 
über die gelungene Mani- 
pulation. 


PRINT“TUV“ 


Der Computer gibt auf 
den Bildschirm die Zei- 
chen TXV aus. 


SELEKTION NACH 
GERÄTENUMMER 


Mit der gezeigten Metho- 
de lassen sich auch sinn- 
vollere Anwendungen 
programmieren, wie zum 
Beispiel eine Druckeran- 
passung oder die Um- 
wandlung eines im Stan- 
dard-ASCII-Format auf 
Datenträger vorliegenden 
Textfiles in das CBM- 
ASCII-Format. Hierzu 
sind folgende Adressen 
von Nutzen: 


>0098 ; DFLTN 
(Eingabegerät) 

>0099 ; DFLTO 
(Ausgabegerät) 


Durch Abfrage des Aus- 
gabegerätes kann festge- 
stellt werden, ob das 
Zeichen an den Drucker 
gehen soll. Wir tauschen 
als Beispiel U gegen X ° 
nur bei der Druckeraus- 
gabe. Zuerst ist der noch 
verbogene Ausgabezeiger 
auf den ursprünglichen 
Wert zu setzen. Dies er- 
reichen wir durch einen 
Reset oder, in unserem 
Falle noch besser, durch 
Drücken des Resetknop- 
fes, während die Run/ 
Stop-Taste gedrückt ist. 
In diesem Falle sind wir 


bereits im Monitor und 
können eingeben: 


A 065E PHA 
A 065F LDA$99 

A 0661 CMP #$04 
A 0663 BNE $066D 
A. 0665 PLA 

A 0666 CMP #855 
A 0668 BNE $066E 
A 066A LDA #$58 
A 066C PHA 

A 066D PLA 

A 066E JMP $EC4B 


Das auszugebende Zei- 
chen wird durch PHA 
auf den Stack gesichert, 
damit es bei der Abfra- 
ge des Ausgabegerätes 
nicht verlorengeht. Ist 
nicht Gerät Nummer 
vier, also der Drucker, das 
Ausgabegerät, erfolgt der 
Sprung nach $066D, wo 
das Zeichen wieder vom 
Stapel geholt und an- 
schließend ausgegeben 
wird. Andernfalls holen 
wir uns das Zeichen mit 
PLA vom Stapel und 
überprüfen, ob es sich um 
ein U handelt. Wenn ja, 
wird ein X auf den Sta- 
pel geschoben. 

Bei den abgeänderten 
Routinen darf nicht die 
Adresse, von der aus der 
Sprung kommt, verwen- 
det werden. Bei JMP 
$FFD2 am Ende dieses 
Listings würde sonst die- 
se Routine in einer End- 


. losschleife ständig durch- 


laufen werden. Ergebnis 
wäre, daß sich nichts 
mehr rührt. 


BASIC-EDITOR 
ERFASST TEXTE 


Nachdem die neue Routi- 


ne fertiggestellt ist, bin- 
den wir die Anfangs- 
adresse genau wie vorhin 
wieder in das System ein. 
In BASIC bringt 
PRINT“TUV“ ganz nor- 
mal die Buchstaben TUV 
auf den Bildschirm. An- 
ders verhält sich der 
Drucker: 


OPEN ,4:PRINT#4, 
“TUV“:CLOSE4 


Gedruckt werden die 
Buchstaben TXV. 
Im normalen Zustand er- 
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weist sich der BASIC-Edi- 
tor als ungeeignet für 
Texte. Mit CBM- und 
Shift-Taste schalten wir 
in den Kleinschreibmo- 
dus um und geben ein: 


1 aAbBcC 
list 


Großbuchstaben mag der 
BASIC-Editor anschei- 
nend nicht. Ist er nicht 
willig, so versuchen wir 
es mit Gewalt: 


l remBCD 
list 


Er hat die Großbuchsta- 
ben angenommen. Beim 
Auflisten werden sie als 
Token angesehen und 
enttokenisiert, was für 
uns nicht annehmbar ist. 
Doch kommen die Groß- 
buchstaben zweimal in 
der Zeichentabelle vor. 
Im Rechnerhandbuch 
steht, daß die Zeichen 
der Codes 192 bis 223 
identisch seien mit denen 
von 96 bis 127. Betrach- 
ten wir die eingegebene 
Zeile mit dem Monitor. 


monitor 


m1005 
Wir sehen: 
>1005 8f c2c3 c4...... 


Wir ersetzen die Hexwerte 
$CO0 bis $DF durch $60 
bis $7F. Das REM-Token 
$8F könnten wir zusätz- 
lich noch in den Buchsta- 
ben A umwandeln. Wir 
ändern die ersten vier 
Werte ab Adresse $1005. 


>1005 61 62 63 64 


Nach der Rückkehr in den 
BASIC-Editor zeigt der 
Rechner beim Listen: 


1 ABCD 


Großbuchstaben können 
also erfaßt werden, wenn 
wir deren ASCII-Wert 
wandeln. Durch Manipu- 
lation der Eingaberoutine 
ist dies nicht schwer zu 
erreichen. 


Nachdem wir dafür ge- 
sorgt haben, daß verboge- 


RTIPS a TRICKS Re 


ne Sprungvektoren wie- INTERRUPTGESTEUERTE UHR 


der richtiggestellt sind, 
geben wir im Monitor 
ein kurzes Listing ein. 


a065e isr $ebe8 
a 0661 bes 5066e 
a 0663 cmp #$e0 

a 0665 bes $066d 
a 0667 cmp #8c0 

a 0669 bec $066e 
a 066b sbce #$60 

a066d clc 

a 066e rts 


Durch den Aufruf JSR 
$EBES lesen wir das 
Zeichen vom Eingabe- 
gerät. Wenn ein I/O- 
Error vorliegt, ist an- 
schließend das Carry-Flag 
gesetzt. In diesem Fall 
lassen wir alles, wie es ist, 
und sorgen für den Rück- 
sprung. Sonst wird vergli- 
chen, ob das empfangene 
Zeichen kleiner als $EO 
und größer oder gleich 
$C0 ist. Gegebenenfalls 
ist nur noch der Wert 
$60, dezimal 96, zu 
subtrahieren. 

Die Anfangsadresse die- 
ser Routine ist nun, da 

es sich um die BASIN- 
Routine handelt, in die 
Speicherstellen $0322 
und $0323 einzutragen. 
Es zeigt sich, daß der 
BASIC-Editor jetzt Groß- 
buchstaben annimmt. Der 
große Vorteil dieses Ver- 
fahrens ist, daß mit dem 
modifizierten Editor wei- 
terhin auch BASIC-Pro- 
gramme abgetippt wer- 
den können. 

Nur ist in Kauf zu neh- 
men, daß BASIC-Befehle 
nicht mehr abgekürzt 
werden dürfen. Die neuen 
Großbuchstaben werden 
nicht mehr als Markierung 
für die Abkürzung er- 
kannt. Ärgernis bereitet 
das Fragezeichen. Es wird 
weiterhin als PRINT wie- 
dergegeben. 

Ändern läßt sich dies 
durch die im C16/P4-SPE- 
CIALNT. 1 veröffentlich- 
te Zeichensatz-Anpassung. 
Durch Umdefinieren des 
Codes für das Fragezei- 
chen und Eiıstellen der 

» Zeichenmatrix für diesen 
neuen Code ist die Sache 
erledigt. Soll auch eine 
Druckeranpassung erfol- 
gen, so ist die Anfangs- 
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rem systemuhr===============01]6 <ha> 
rem (p) commodore welt team <ho> 
rem \arnsnun anne nn eng> 
rem (c) by alfons mittelmeyer <cg> 
rem <pd> 
rem <ah> 
rem basic v3.5 <nl> 
rem c16/116/plus4 <ki> 
rem Bm nie lg 
rem anpassungsteil <pc> 
rem -------------- <li> 
z-8 :rem zeile zjp?> 
s=® :rem spalte <pj> 
nl=48+128:rem ’8’ <eg? 
tr=-58+128:rem °:” sed> 
rem ============2=2=2==2==2=22=2==== cfh> 
rem maschinenroutine skco> 
rem --------------- <bd> 
fori=1638t01735 <nd> 
reada:pokei,a:next <ohr 
data 198,215,298,841,169,85® <bn> 
data 133,215, 162,882,832, 142 <bk> 
data 8906,2802,8016,25%, 165,298 <kh> 
data 201,036,208,083,232,134  <lg> 
data 298, 162,902, 168,8097,832 <cc> 
data 163,086,292,916,25B, 165 <cj? 
data 212,168,882,145,213,168 <pc> 
data 885, 145,213,076,066, 286 <di> 
data 181,208,248,924, 105,881 <fp> 
data 216, 149,208,201,896,248 <pd> 
data 983, 162,009,096, 169, a00 <bp> 
data 149,208,8096,181,298,941 <mg? 
data 015,8985,211, 145,213, 181 <po> 
data 288,074,074,074,074,8041 <ai> 
data 815,885,211,136, 145,213 <do> 
data 136, 136,896, 128,169,894 <nf> 
data 141,8018,893, 169,086, 141 <gb> 
data 919,0093,888,296 <mm> 
rem ====rPs-S5S-Eakaeasseer 7 
rem initialisierung <di> 
rem mem nn <1m> 
poke215,58:poke211,nl <oj? 
poke212,tr:ad=3072+z*40+s <ko> 
h=int( ad/256) :1=ad-256*h «jf> 
poke213,1:poke214,h <fk> 
senelr:print"zeiteingabe" <pf> 
BEinE + ":;print <ce> 
input"hh/mm/ss";u$ <bh> 
fori=8to2 <gh> 
h=vallmid$(u$,3*i+1,1)) <af> 
1=val(lmid$( u$,3#*i+2,1)) <ia> 
poke288+i1,16*h+l:next:print <ei> 
print"start bei tastendruck!” <In> 
getkeya$:sys1723:scncelr <oi> 
rem ===========S=222=2==25=22===== cpp> 
remprogrammende <hp> 
rem ============2=====2==2==2=== cmo> 


adresse des Maschinen- 
sprachteiles um 17 zu er- 
höhen, wenn Sie es nicht 
vorziehen, die soeben er- 
stellte BASIN-Modifizie- 
rung zu verlegen. 


EINIGE | 
PROBLEMFÄLLE 


Der BASIC-Interpreter 
hat so seine Tücken. Was 
er nicht mag, sind: 
® Leerzeilen; 
® führende Leerzeichen; 
® Zahlen am Zeilen- 
anfang. 
Jedoch kann auch hier für 
Abhilfe gesorgt werden. 
Bei der Eingabe eines ge- 
shifteten Leerzeichens 
werden weitere normale 
Leerzeichen oder Zahlen 
angenommen. Eine Leer- 
zeile kann durch die Ein- 
gabe eines Leerzeichens 
realisiert werden. Da 
BASIN auch Leerzeichen 
am Zeilenende verwirft, 
ist ein Trick anzuwenden: 
Nach dem geshifteten 
Leerzeichen geben wir ein 
reverses ein. Beim Aufli- 
sten ist tatsächlich eine 
Leerzeile sichtbar. 


TEXTEDITOR MIT 
DRUCKERAUSGABE 


Beim Ausgeben von Text 
auf den Drucker sollen 
keine Zeilennummern er- 
scheinen. Durch Modifi- 
kation der BSOUT-Rou- 
tine können wir dafür sor- 
gen. Wenn wir uns nicht 
daran gewöhnen wollen, 
daß wir für das Handling 
unseres Rechners keine 
Abkürzungen mehr ver- 
wenden können, bietet 
sich eine andere Lösungs- 
möglichkeit an: die Un- 
terbindung der Tokeni- 
sierung bei nicht einge- 
gebener Zeilennummer. 
Wenn die BASIN-Routine 
jedes Leerzeichen durch 
ein geshiftetes Leerzei- 
chen ersetzt, so fällt in 
den Problemfällen, füh- 
rende Leerzeichen und 
Zahl am Zeilenanfang, 
das zusätzliche Eintippen 
dieses Zeichens weg. Wir 
stellen jetzt eine neue 
Lösung mit mehr Know- 
how vor. 

Dieses Assemblerlisting 


Be rare TPS5& TRICKSE 


srauchen Sie nicht abzu- 
üppen, da wir es für Sie 
noch als BASIC-Listing 
bereitgestellt haben. 


MINI-EDITOR 
Assembler-Listing 


2065e Ida #$00 
a 0660 sta 
2 0662 jsr 

2 0665 bcs 
2 0667 cmp 
a 0669 bne 
a 066b Ida 
a066d clc 
a 066e rts 
a 066f Idy 
a0671 beq 
a 0673 jsr 

a 0676 cmp 
a 0678 bne 
a 067a jsr 
a 067d jsr 

a 0680 ıny 
a0681 cmp : 
a 0683 bne 

a 0685 rts 
a 0686 jmp 
a0689 pha 
a068a Ida 
a068c cmp 
a068e beq 
a 0690 Ida 
a 0693 cmp ; 
a0695 beq $ 
a 0697 pla 
a 0698 pha 
a0699 jsr $ec4b 
a069c pla 

a 069d cmp #$0d 
a069f beq $06a5 
a06al cmp #$20 


a06a3 bne $06a8 
a06a5 sta $06b4 
a06a8 clc 

a06a9 bcc $06af 
a 06ab pla 

a06ac jsr $ec4b 
a O6af Ida #$fc 
a 06b3 rts 


EINGABEROUTINE 


Die BASIN-Routine von 
$065E bis $066E tauscht 
das Leerzeichen S20 ge- 
gen das geshiftete Leer- 
zeichen $AQ. Außerdem 
wird in die Speicherstelle 
$08 eine Null geschrieben. 
Die Speicherstelle $08 
enthält nämlich bei der 
Tokenisierung die Zif- 
fernanzahl der eingege- 
benen Zeilennummern. 
Wurde keine eingegeben, 
so kann sie auch einen 
von Null verschiedenen 


Wert enthalten. Mit un- 
serer Voreinstellung 
aber kann die Speicher- 
stelle $08 als Flag für die 
eingegebene Zeilennum- 
mer dienen. 

Von $066F bis $0685 
geht die neue Tokenisie- 
rungsroutine CRNCH. 
Bei der Direkteingabe 
von Befehlen erfolgt eine 
normale Tokenisierung. 
Sonst wird diese unter- 
bunden. Mit JSR $0479, 
CHRGOT, wird das erste 
Zeichen nach der Zeilen- 
nummer abgefragt. 


TOKENISIERUNG 


CHRGOT lest das Zei- 


chen, auf welches der Zei- 
ger in den Adressen $3B 
und $3C weist. 

Da dabei die RAM-Bank 
eingeschaltet wird, kann 
der Zugriff auch auf den 
gebankten RAM-Bereich 
erfolgen. Liegt ein ge- 
shiftetes Leerzeichen vor, 
so beseitigen wir dieses, 
indem wir den Zeiger mit 
CHRGET, JSR $0473, 
weiterstellen. CHRGET 
macht dasselbe wie 
CHRGOT, nur daß zuvor 
zum Lesen des nächsten 
Zeichens der Zeiger er- 
höht wird. 

Normale Leerzeichen 
werden bei diesen Lese- 
vorgängen übersprungen. 
Der Interpreter bekommt 
dadurch bei der Abarbei- 
tung Leerzeichen zwi- 
schen den BASIC-Befeh- 
len gar nicht erst zu Ge- 
sicht und kann somit 
schneller arbeiten. Die 
Tokenisierungsroutine 
unterschlägt geshiftete 
Leerzeichen. Normale 
Leerzeichen jedoch blei- 
ben erhalten, weil 
CRNCH sie gar nicht erst 
zu sehen bekommt und 
hinauswerfen kann. 
Ziffern, die durch norma- 
le Leerzeichen getrennt 
sind, werden wegen- 
CHRGET als zu einer 
einzigen Zahl gehörig an- 
gesehen. Wichtig zu wis- 
sen ist, daß die beiden 
Routinen das Y-Register 
auf Null setzen. Die 
CRNCH übergibt nach 
der Tokenisierung dem 
aufrufenden Programm 


die Zeilenlänge im Y-Re- 
gister. Wir müssen daher 
ebenfalls die Länge der 
Zeile vom augenblickli- 
chen Zeigerstand bis zu 
dem mit einer Null mar- 
kierten Zeilenende be- 
stimmen. 

Zum Zeichenlesen dient 
die Routine JSR $04A5, 
die dasselbe macht wie 
LDA ($3B),Y. Der Un- 
terschied ist, daß der Zu- 
griff immer auf das RAM 
erfolgt. Nach Erreichen 
des Zeilenendes können 
wir die Routine beenden. 
Das aufrufende Pro- 
gramm bekommt die In- 
formation, was aus dem 
BASIC-Eingabepuffer in 
das Listing zu überneh- 
men ist. 


AUSGABEROUTINE 


Eine Modifizierung von 
BSOUT ist nicht nur we- 
gen unserer Druckeraus- 
gabe erforderlich. Beim 
Listen von Zeilen mit 
Großbuchstaben würden 
diese als BASIC-Schlüs- 
selwörter erscheinen. 
Dies läßt sich jedoch sehr 
einfach unterbinden. In 
die Speicherstelle $OF 
ist nur eine Zahl von $80 
bis $FF zu schreiben. Die 
Listroutine behandelt 
dann alles so, als würde 
es als Text zwischen An- 
führungszeichen stehen, 
und unterläßt die Wand- 
lung in Schlüsselwörter. 
Unsere Ausgaberoutine 
von $0689 bis $06b3 
nimmt wegen einer 
Sonderbehandlung für die 
Ausgabe auf externe Ge- 
räte relativ viel Raum in 
Anspruch. Damit das 
Ausgabegerät abgefragt 
werden kann, ist zuerst 
mit PHA das auszugeben- 
de Zeichen zu retten. 
Die Bildschirmausgabe 
geht normal vonstatten. 
Bei anderen Geräten wol- 
len wir die Zeilennummer 
unterdrücken. Als Flag 
dient die Speicherstelle 
$06B4, die sich unmit- 
telbar hinter unserem Pro- 
gramm befindet. Zu Be- 
inn steht darin der Wert 
OD, zum Zeichen da- 
für, daß nichts ausgege- 
ben werden soll. Sonst 


13 


würde die Ausgabe mit 
JSR $ECAB erfolgen. 
Was auch immer ge- 
schieht, im Anschluß wird 
jedenfalls’abgefragt, ob 
es sich um ein Return 
mit dem Code $0D oder 
um das der Zeilennum- 
mer folgende Leerzeichen 
$20 handelt, das beim 
Auflisten automatisch er- 
zeugt wird. Trifft eines 
von beiden zu, so wan- 
dert entweder $0D oder 
$20 in unsere Flag-Spei- 
cherstelle. Die Zeichen 
nach Return werden so- 
mit unterschlagen, die 
Zeichen nach Space aus- 
gegeben. 

Das BASIC-Listing MINI- 
EDITOR erzeugt den be- 
schriebenen Maschinen- 
code und stellt die drei 
Zeiger ICRNCH, IBASIN 
und IBSOUT um. Am 
besten schalten Sie mit 
AUTO1IO0 gleich die auto- 
matische Generierung der 
Zeilennummern ein. Sie 
brauchen somit auf Zah- 
len am Zeilenanfang 
nicht mehr zu achten. Wo 
vorher ein geshiftetes 
Leerzeichen nötig war, ge- 
nügt jetzt ein normales, 
da ja sowieso eine Um- 
wandlung stattfindet. 


BESONDERHEITEN 
VON MINH-EDITOR 


Das Einfügen von Leer- 
zeilen vollzieht sich auch 
jetzt mit dem reversen 
Leerzeichen. Sie können 
DSAVE, DLOAD und 
sonstige Befehle wieder 
abkürzen. Erfassen Sie 
doch einmal ein paar Zei- 
len und geben dann ein: 


open4,4,7:cmd4:list: 
print#4:close4 


Mit Diskette können Sie 
probieren: 


open8,8,8,“text,s,w“: 
cmdß:list:print#8: 
close8 


Der Drucker druckt die 
Zeilennummern nicht mit. 
Wenn Sie mit SCRIPT/ 
PLUS den erzeugten se- 
quentiellen File „text“ 
einladen, so sehen Sie, 
daß auch dort das näm- 


aTPrss ROK nn nn. Zn 


liche der Fall ist. Eine 
kleine Macke kommt zu- 
tage, wenn auf den Groß- 
buchstaben U unmittel- 
bar eine Zahl folgt, die 
nicht durch ein Leerzei- 
chen abgetrennt ist. 

U ist das Token für das 
Schlüsselwort ELSE. 
Beim Renumbern wird 
die nachfolgende Zeile 
als Zeilennummer ange- 
sehen und ersetzt. Da den 
anderen Schlösselwörtern, 
denen ebenfalls eine 

Zahl folgt, keine sichtba- 
ren Zeichen entsprechen, 
tritt der genannte Effekt 
nicht auf. 


NICHTBLINKENDER 


CURSOR 


Es existiert beim C16/116/ 


P4 kein Poke, um das Cur- 
sorblinken abzuschalten. 
An die Betriebssystem- 
Routine, die den Cursor 
ein- und ausschaltet, ist 
auch nicht heranzukom- 
men. Dennoch gibt es ei- 
nen Weg: Es ist der Inter- 
ruptvektor ITIME. Alle 
fünfzigstel Sekunden 
wird dieser Interrupt auf- 
gerufen. Wenn wir in ihn 
eine Routine einbinden, 
können wir den Cursor 
ausschalten und ihn mit- 
tels Software simulieren. 
Wir ersetzen ihn dadurch, 
daß wir die Stelle, auf 
dem er sich befindet, re- 
vers darstellen. 


a0140 jsr Scfbf 
a0143 jsr Scecd 
a 0146 Ida Sfb 
a0148 pha 
a0149 Ida 
a014b ie 
a0l4d 
a01l4e er 
a014f isr 
2.0152 lay $ca 
a0154 Ida 
a0156 Idx #$ff 
a0158 cpx 
a015b bne 
a015d cpx 
a0160 beq 
a 0162 stx 
a 0165 stx 
a 0168 stx 
a016b eor #$80 
a016d sta ($c8),y 
a016f Idx 

a0171 beq 


a0173 bit $0182 


MINI-EDITOR 


18 rem mini-editor 


28 rem (p) commodore welt team <ho> 
30 rem ================2===2=2=2==2=2== cng> 
48 rem (c) by alfons mittelmeyer <cg> 
58 rem <pd> 
68 rem c16/116/p4 <bg> 
78 rem =====================2==2=== cpo> 
88 fori=1638t01716 <pl> 
98 reada:pokei,a:next <dk> 
108 data 169,000,133,008,032,232 <jo> 
110 data 235,176,007,201,032,2088 <bp> 
120 data 002,169,160,024,096,164 <dg> 
130 data 008,240,019,032,121,0084 <ho> 
140 data 201,160,208,003,032,115 <hn> 
158 data 004,032,165,004,200,201 <jm> 
168 data 000,208,248,096,076,066 <il> 
178 data 137,072,165,153,201,0083 <ha> 
180 data 240,027,173,180,006,281 <ip> 
198 data 913,240,005,104,072,032 <oo> 
280 data 875,236,104,201,013,248 <hb> 
210 data 004,201,032,208,003,141 <gb> 
220 data 180,006,024,144,004,104 <ig> 
238 data 832,075,236,169,252,133 <mn> 
248 data 815,896,9813,772,111,086 <oe> 
250 data 802,094,006,804,137,006 <jg> 
268 fori=1to3:reada:readb:readc <he> 
278 pokea,b:pokea+tl,c:next:new <ik> 
280 rem ========================== <]o> 
29a rem programmende <no> 
308 rem ============-==-============ ckn> 
a0176 bpl $O17f unterbindet durch SEI 
a 0178 eor #$80 den Interrupt. Der Vek- 
a017a sta (ed),y tor ITIME kann dadurch 
a017c Ir $018 problemlos auf den neu- 
a017f jmp $ce54 en Wert eingestellt wer- 
a0182 br den. 
a0183 sei 
a 0184 Ida #$40 REAKTION 
a 0186 sta: $0312 AUF TASTENDRUCK 
a0189 Ida #$01 —— 
a018b sta $0313 Den Anfang der Inter- 
a018e cli ruptroutine im ROM von 
a018f rts $CE42 bis $CE53 haben 


VERSTELLEN DES 
INTERRUPTVEKTORS 


Der Interruptvektor darf 
nicht durch einen Poke 
verbogen werden. Der 
Interrupt könnte nämlich 
genau zwischen dem Po- 
ken von Low- und High- 
Byte auftreten, auf ei- 
nen nur teilweise verstell- 
ten Vektor treffen und 
ins Leere stürzen. Ein 
Systemabsturz wäre die 
Folge. Die Maschinenrou- 
tine von $0183 bis $O18f 


wir in das RAM von 
$0140 bis $0151 kopiert. 
Der letzte Befehl lautet 
somit JSR $DB11. Dies 
ist die Routine SCNKEY, 
die für die Tastaturabfra- 
ge verantwortlich ist. 

Sie bringt die gedrückte 
Taste in den Tastenpuf- 
fer oder aktiviert den 
Funktionstastenpuffer, 
falls eine Funktionstaste 
gedrückt ist. 

Daß uns kein Tastendruck 
entgeht ist wichtig, da- 
mit wir den simulierten 
Cursor rechtzeitig aus- 
schalten können. Wenn 
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der Rechner, von uns un- 
bemerkt, eine Taste zu 
lesen bekäme, würde er 
den Originalcursor auf 
die neue Position stellen. 
Der simulierte reverse 
Cursor würde einfach 
stehenbleiben, wenn es 
sich dabei um eine Cur- 
sortaste oder die Return- 
taste handeln würde. 


HARD- UND 
SOFTWARECURSOR 


Zum Simulieren des Cur- 
sors brauchen wir den 
Ort, an dem er sich befin- 
det. In Adresse SCA fin- 
det sich die Spaltenposi- 
tion, in den Zeilen 5C8 
und $C9 die Zeilenan- 
fangsadresse. Mit dem Pro- 
grammteil von $0152 

bis $0155 bekommen wir 
die Spaltenposition in das 
Y-Register und das even- 
tuell zu invertierende Zei- 
chen in den Akku. An- 
schließend erfolgt die Ab- 
frage, ob der Hardware- 
cursor eingeschaltet ist. 
Dies ist der Fall, wenn die 
Speicherstellen SFFOC 
und FFOD nicht beide 
den Wert SFF aufwei- 
sen. 

In Adresse $0156 bis 
$0161 erfolgt die Abfra- 
ge und die entsprechen- 
de Verzweigung. Ist der 
Cursor eingeschaltet, 
schalten wir ihn aus. Die 
Speicherstelle $0182 
dient als Flag, mit dem 
wir uns den Cursorzustand 
merken. Dabei soll ein 
Wert von $80 bis $FF ei- 
nen eingeschalteten Cur- 
sor bedeuten und ein 
Wert von $00 bis $7F ei- 
nen ausgeschalteten. Das 
Zeichen an der Cursorpo- 
sition wird invertiert zu- 
rückgeschrieben. 


ABSCHALTEN DES 
SOFTWARECURSORS 


Auf die Routine von 
$0162 bis $016E, die den 
Hardwarecursor aus- und 
den Softwarecursor ein- 
schaltet, folgt zu guter 
Letzt die Abschaltung des 
Softwarecursors. Wenn 
eine Taste gedrückt wur- 
de, ist die Abschaltung 
vorzunehmen. 


Be  _ ____________iii33,.19S_ 


SDX, der Tastaturindex 
n Speicherstelle $EF, in- 
“ormiert uns über die An- 
zahl der im Tastaturpuf- 
“er erfaßten gedrückten 
Tasten. Ist der Wert Null, 
so erfolgt der Rücksprung 
ın die Original-Interrupt- 
Routine auf $CE54. Im 
anderen Fall ist zu prüfen, 
>b der Softwarecursor 
zingeschaltet ist. Unser 
-lag, die Speicherstelle 
30182, gibt darüber Aus- 
kunft. 

Durch eine weitere Inver- 
terung sorgen wir wieder 
“ür den ursprünglichen 
Zustand des Zeichens an 
der Cursorposition. Das 
Flag läßt sich durch 
Rechtsverschieben oder 
Incrementieren mit ei- 
nem einzigen Befehl auf 
jen Wert $7F oder $00 
bringen, was beides einen 
ausgeschalteten Software- 
zursor bedeutet. Unter 
dem Namen BLINKWEG 
legt dieses Programm 
auch als BASIC-Listing 
vor. 


SYSTEMUHR 


Eine Uhr in BASIC zu 
programmieren, ist weiter 
nicht schwierig. Zum Uhr- 
zeit setzen und Uhrzeit 
lesen braucht nur die Va- 
riable TI$ gesetzt oder 
ausgegeben werden. Ein 
solches BASIC-Pro- 
sramm hat jedoch einen 
entscheidenden Nachteil: 
Während das Uhrpro- 
sramm läuft, können wir 
mit dem Rechner nichts 
anderes mehr tun. Wenn 
wir das Uhrprogramm 
verlassen, sehen wir die 
Zeit nicht mehr. 

Eine Uhr, die ständig die 
Zeit anzeigt, läßt sich in 
Maschinensprache durch 
Systemeinbindung pro- 
srammieren. Also nichts 
wie ran, eine Routine 
schreiben, die TI$ ausgibt, 
und sie einbinden. Dies 
ist aber leichter gesagt als 
setan. TI$ existiert in 
BASIC nur formal als 
Variable. 


A$=TI$ 


Hier wird der Variablen 
AS$ die Uhrzeit als Text- 


NICHTBLINKENDER CURSOR nungin ASCII-Ziffern er- 


18 rem blinkweg================616 <ep> 
28 rem (p) commodore welt team <ho> 
3U rem =========================== ong> 
48 rem (c) by alfons mittelmeyer <cg> 
58 rem <pd> 
68 rem c16/116/plus4 <kb> 
70 rem ===============2=2=========== cpo> 
88 fFori=328t0399 <ja> 
98 reada:pokei,a:next <dk> 
108 data 932,191,207,032,285,286 <hp> 
118 data 165,251,072,169,080,133 <hi> 
128 data 251,208,888,032,017,219 <mi> 
138 data 164,292,177,288, 162,255 <ki> 
148 data 236,813,255,288,885,236 <bi> 
150 data 912,255,249,813,142,912 <il> 
168 data 255, 142,013,255, 142,138 <hh> 
170 data 891,073,128,145,280,166 <jm> 
180 data 239,248,012,044, 138,081 <fj> 
198 data 016,087,073, 128, 145,208 <dn> 
288 data 878,130,001,076,884,286 xab> 
218 data 089,128, 169,864, 141,818 <mg> 
228 data 883,169,091,141,819,8083 <hh> 
230 data 888,096 <ib> 
240 sys387:new <mg> 
250 rem ==============2=2==222=2===22== Cjf> 
268 rem programmende <bn> 
270 rem ====================2==22=== <]d> 


string übergeben. TI$ 
selbst ist jedoch keine 
Stringvariable, deren In- 
halt an einer Stelle im 
Hauptspeicher zu finden 
ist, sondern eine Funk- 
tion wie zum Beispiel 
CHR$ oder LEFT$. Zwar 
findet sich die Uhrzeit in 
Form von sechzigstel Se- 
kunden in den Speicher- 
stellen $A3, $A4 und 
$A5. Das Umrechnen in 
das Stringformat ist 

aber sehr aufwendig. Da- 
her wählen wir ein ein- 
facheres Verfahren, die 
eigene Programmierung 
einer Uhr. 

Was wir zu einer Digi- 
taluhr benötigen, sind 
ein Taktsignal und drei 
Zähler für Sekunden, 
Minuten und Stunden. 
Das Taktsignal liefert der 
Systeminterrupt ITIME, 
der alle fünfzigstel Se- 
kunden auftritt. Beim In- 
terrupt ist nur ein Zähler 
hoch- oder runterzuzäh- 
len; nach fünfzig Inter- 
rupts drehen wir die Uhr 
eine Sekunde weiter und 
geben die Zeit aus. 


Beim Weiterdrehen der 
Uhr werden zuerst die Se- 
kunden um eins erhöht. 
Bei 60 Sekunden sind die 
Sekunden auf Null zu set- 
zen und die Minuten zu 
erhöhen, bei 60 Minuten 
die Stunden. Bei 24 Uhr 


“ setzen wir die Stunden 


wieder auf Null. 
Folgende Speicherstellen 


verwenden wir für unser 


Programm: 


: Stunden 

: Minuten 

: Sekunden . 

: Bildschirmcode für 
die Ziffer Null 

: Bildschirmcode für 
Doppelpunkt 

: Low-Byte Bildschirm- 
adresse 


adresse 
$D7: Taktzähler 
Vor dem Start des Maschi- 
nenprogrammes sind diese 
Speicherzellen richtig zu 
initialisieren. Stunden, 
Minuten und Sekunden 
werden im BCD-Format 
erfaßt, damit die Umrech- 
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: High-Byte Bildschirm- 


leichtert wird. Als Bild- 
schirmcode für die Ziffer 
Null kommen entweder 
$30, dezimal 48, oder 
$BO, dezimal 176, in Fra- 
ge, je nachdem, ob nor- 
male oder inverse Ausga- 
be gewünscht wird. Für 
den Doppelpunkt sind es 
die Werte $3A, dezimal 
58, oder $BA, dezimal 
186. Wer ein anderes 
Trennzeichen haben 
möchte, kann einen ande- 
ren Wert eingeben. 

Den Ort der Uhr auf dem 
Bildschirm geben $D5 
und $D6 an. Aus Zeile 
und Spalte läßt sich die 
Adresse mit AD=3072 
+40*Z+S errechnen. Der 
Taktzähler, der bei jedem 
Interrupt erniedrigt wird, 
sollte zu Beginn auf $32, 
dezimal 50, gesetzt wer- 
den, damit genau eine 
Sekunde später die rich- 
tige Zeit ausgegeben 


wird. 

Um die Übersichtlichkeit 
zu erhöhen, wurde das 
Assemblerlisting durch 
dazwischengeschobene 
Bemerkungen in Ab- 
schnitte unterteilt. Falls 
Sie es mit dem Monitor 
eingeben möchten, sind 
die Bemerkungen wegzu- 
lassen, da der Monitor 
mit diesen nichts anzu- 
fangen weiß. Da zu die- 
sem Programm auch ein 
BASIC-Listing existiert, 
ist die Eingabe mit dem 
Monitor unnötig. 


SYSTEMUHR 
Assemblermnemonics 


Abfrage 
a065e dec 
a 0660 bne 


d7 
068b 


Hauptroutine 


a 0662 Ida 
a Ö664 sta 

a 0666 Idx 
a 0668 jsr 

a 066b dex 
a066c bpl $0668 
a066e Ida $dO 

a 0670 cmp #824 

a 0672 bne $0677 
a 0674 inx 

a 0675 stx $dO 


a 0677 ldx #$02 


« 


ETIDS R TRICKS Er EL ru (En 


a 0679 Idy 
a 067b jsr 

a067e dex 
a067f bpl 
20681 Ida $d4 
a 0683 Idy 
a 0685 sta 
a 0687 Idy 
a 0689 sta ($d5),y 


ROM-Interrupt 
a 068b jmp $ce42 


Uhr weiterstellen 
a068e Ida $dO,x 
a 0690 sed 
a0691 clc 
a 0692 adc 
a0694 cld 
a 0695 sta 
a 0697 cmp 
a 0699 beq 
a 069b ldx 
a069d rts 
a069e Ida 
a06a0 sta 
a06a2 rts 


Zeit ausgeben 

a 06a3 Ida $d0,x 
a06a5 and #$0f 
a 0637 ora $d3 
a06a9 sta ir 
a06ab Ida $d0,x 
a06ad Isr 

a06ae Isr 

a06af Isr 

a 06bf Isr 

a06bl and #$80f 
a06b3 ora $d3 

a 06b5 dey 

a 06b6 sta ($d5),y 
a 06b8 dey 

a 06b9 dey 

a 06ba rts 


#$01 


$d0,x 
#560 
$069e 
#800 


#$00 
$d0,x 


Systemeinbindung 
a 06bb seı 
a06bc Ida 
a 06be sta 
a06c1 Ida 
a06c3 sta 
a 06c6 ch 
a06c7 rts 


Ende 


DER INTERRUPT- 


ZÄHLER 


Zu Beginn wird: der Zäh- 


ler $D7 erniedrigt. Wenn 
er noch nicht den Null- 
stand erreicht hat, erfolgt 
der Sprung zum norma- 
len ROM-Interrupt. 
Andernfalls wird zuvor 
die Uhrroutine abgearbei- 
tet. Der Zähler $D7 ist 


wieder auf $32, dezimal 
50, zu setzen. 


WEITERDREHEN 
DER UHR 


In einer Schleife von 
X=2 bis X=0 werden Se- 
kunden, Minuten und 
Stunden weitergezählt. 
Die Bearbeitung der jewei- 
ligen Speicherstelle $D2 
bis $DÖ besorgt die Un- 
terroutine von $068E bis 
$06A2. Sie erhöht die be- 
treffende Zahl durch 
BCD-Addition mit der 
Zahl Eins. Ist der neue 
Wert kleiner als $60, so 
wird der Schleifenindex 
X auf Null gesetzt. Die 
Schleife in der Hauptrou- 
tine wird dadurch vorzei- 
tig verlassen, so daß nicht 
auch noch die Minuten 
und Stunden erhöht wer- 
den. 

Ist der neue Wert dagegen 
$60, so wird er gegen 
$00 ausgetauscht. Da 
nichts am Indexregister 
gedreht wird, bearbeitet 
die Schleife in der 
Hauptroutine auch die 
folgenden Stellen der 
Uhrzeit. 

Den Stunden wird eine 
zusätzliche Behandlung 
zuteil. Nicht erst bei 

$60 sind sie auf Null zu 
stellen, sondern bereits 
bei $24. Durch Verwen- 
dung von INX braucht es 
nur ein einziges Byte, um 
eine Nullin das X-Regi- 
ster zu bekommen. 


AUSGABE 
DER UHRZEIT 


Nach dem Weiterdrehen 
der Uhr soll die Zeit auch 
ausgegeben werden. Das 
X-Register dient wieder- 
um als Index für unsere 
Sekunden, Minuten und 
Stunden. 

Das Y-Register steuert 
die Positionierung der aus- 
zugebenden Ziffern. Wie 
eben läuft die Ausgabe- 
schleife von X=2 bis 
X=0. Den jeweiligen Wert 
bringt die Routine von 
$06A3 bis $O6BA auf 
den Bildschirm. 

Zuerst wird aus der BCD- 
Zahl die niederwertige 
Ziffer durch Undieren 


mit $OF isoliert. Durch 
Odern mit dem Inhalt 
von $D3 wird der richti- 
ge Bildschirmcode er- 
zeugt, der mit Hilfe des 
Zeigers $D5 und dem 
Y-Register auf den Bild- 
schirm ausgegeben wird. 
Die höherwertige Ziffer 
wird durch viermaliges 
Schieben nach rechts ge- 
wonnen. Das Undieren 
mit $OF, das mit in das 
Listing gerutscht ist, ist 
überflüssig. 

Erniedrigen des Y-Regi- 
sters ist nötig, um die 
Ausgabe der nächsten 
BCD-Zahl vorzubereiten, 
die in den nächsten 
Schleifendurchläufen er- 


. folgt. Danach ist nur 


noch das Trennzeichen 
aus der Speicherstelle 
$D4 in die Zwischen- 
räume einzufügen und 
die Interruptroutine im 
ROM kann zum Ab- 
schluß aufgerufen wer- 
den. 


PROGRAMM- 
BEDIENUNG 


Das BASIC-Programm 
SYSTEMUHR fordert 
nach dem Starten zur Ein- 
gabe der Uhrzeit auf. 
Stunden, Minuten und 
Sekunden sind jeweils 
zweistellig und durch 
Schrägstriche getrennt 
einzugeben. Nach dem 
Drücken einer weiteren 
Taste wird die Uhrzeit 

in der linken oberen 
Bildschirmecke, revers 
dargestellt, sichtbar. Da- 
mit die Zeitausgabe beim 
Arbeiten nicht zu sehr 
verwirrt, empfiehlt es 
sich, mit ESC und T am 
Anfang der zweiten Bild- 
schirmzeile ein Window 
einzurichten. 

Weil nicht immer eine re- 
verse Darstellung oder die 
Positionierung in der Iin- 
ken oberen Bildschirm- 
ecke wünschenswert ist, 
hat das Listing SYSTEM- 
UHR einen Anpassungs- 
teil. Es können Zeilen 
von null bis 24 und Spal- 
ten von null bis 32 ge- 
wählt werden. Die Uhr 
bleibt auch bei Bild- 
schirmlöschen, Nachladen 
von Programmen und son- 


16 


stigen Operationen erhal- 
ten. 

Das Starten von reinen 
BASIC-Programmen 
macht der Uhr nichts aus. 
Programme, die Maschi- 
nensprache-Teile und 
Pokes enthalten, können 
jedoch einen Absturz her- 
beiführen. Selbst in 
SCRIPT/PLUS oder der 
eingebauten Plus4-Soft- 
ware haben Sie stets die 
Uhrzeit vor sich. Da Da- 
tenübertragungen über 
den Kassettenport oder 
den seriellen Port den 
Interrupt unterbinden, 
tritt dort ein vorüberge- 
hender Stillstand der 
Uhr ein, der zum Nach- 
gehen führt. Bei der 
Floppy 1551 ließ sich 
ein solcher Effekt nicht 
feststellen. 


NACHTRÄGLICHES 
STELLEN DER UHR 


Sollte ein Nachstellen 
der Uhr erforderlich sein, 
nachdem das BASIC- 
Programm SYSTEMUHR 
nicht mehr im Hauptspei- 
cher des Rechners vor- 
handen ist, kann dies mit 
dem Maschinenmonitor 
bequem vollbracht wer- 
den. Geben Sie einfach 
ein: 


MONITOR 
M DO 


Die ersten drei Werte 
rechts neben dem Datum 
geben die Uhrzeit wieder. 
Wäre es zum Beispiel 12 
Uhr 15 und 20 Sekunden, 
so wäre zu lesen: 


>00D0 121520... 


Durch Überschreiben er- 
folgt die neue Einstel- 
lung. Soll auf Sekunden- 
bruchteile richtig einge- 
stellt werden, so ist der 
letzte Wert in dieser Zei-. 
le auf $32 zu setzen. 
Auch die Darstellung, ob 
normal oder revers sowie 
die Positionierung kön- 
nen auf die gleiche Wei- 
se geändert werden. Wur- 
de mit RUN/STOP und 
der Reset-Taste die Uhr 
außer Gefecht gesetzt, 

so schaltet sich in BASIC 


EEE 75 & TRICKSE 


SYS1723 die Uhr wieder 
ein. 

Bei einem vollständigen 
Reset sind vorher noch 
die acht Bytes von Adres- 
se $DO bis $D7 wieder 
auf die richtigen Werte 
zu bringen. Bei reverser 
Darstellung in der linken 
oberen Bildschirmecke 
und Uhrzeit wie vorher 
angenommen, wäre dies: 


>00D0 12 15 20 BO BA 
00 0C 32 


MODIFIKATIONEN 


Möchten Sie die Uhr 
schneller oder langsamer 
laufen lassen, so braucht 
nur der Lade-Befehl an 


Adresse $0662 abgeän- 
dert werden. Das Weiter- 
zählen der Uhr kann in 
zeitlichen Abständen von 
einem bis zu 256 fünfzig- 
stel Sekunden vorgenom- 
men werden. 


A 0662 LDA #$01; 


1/50 Sek. 
A 0662 LDA #$FF; 
256/50 Sek. 


In manchen Programmen 
werden wir mit langen 
Wartezeiten konfrontiert. 
Ob das Programm in einer 
Endlosschleife hängt oder 
wie lange wir noch zu 
warten haben, darüber 
kann uns auch eine rück- 
wärts bis Null zählende 
Uhr informieren. Den 


Count-Down-Betrieb er- 
reichen wir durch: 


A 0691 SEC 

A 0692 SBC #801 
A 0697 CMP #$99 
A 069E LDA #$59 


Dazu sollte auch das Ab- 
schalten der Uhr bei Er- 
reichen des Nullstandes 
ergänzt werden. 


A 0670 CMP 
A 0674 BEQ 

A 06C8 LDÄ 
A 06CA STA 
A 06CD LDA 
A 06CF STA 
A 0602 BNE 


50313 
$068B 


Wer die Uhr gerne weiter 
ausbauen möchte, kann 


sich einmal an einer 
Weckfunktion versu- 
chen. Gutes Timing brau- 
chen nicht nur Uhren, 
sondern es ist auch wün- 
schenswert bei manchen 
Bewegungsabläufen in 
Computerspielen. Der 
Interrupt sorgt für die 
unabhängige Steuerung 
mehrerer Objekte und 
wird von diesen nicht in 
seinem konstant wieder- 
kehrenden Ablauf beein- 
flußt. Vielleicht kom- 
men Ihnen hierzu einige 
Ideen in den Sinn. 

Wir hoffen, daß wir Ih- 
nen das Verfahren der 
Systemeinbindung etwas 
näher bringen und einige 
Anregungen geben konn- 
ten. am. U 


DATENTRANSFER 


Mit der 
Buschtrommel 
begann es 


Von jeher war der Mensch auf Informationen 
und Nachrichtenaustausch erpicht. Dabei spielte natür- 
lich die Geschwindigkeit des Austausches eine große 
Rolle. Zuerst wurden Kuriere losgeschickt, später 
dann Rauch- und Feuerzeichen verwendet. Die 
Urwaldtrommler könnte man als erste akustische 
Nachrichtenübermittler bezeichnen. Als das technische 
Zeitalter einsetzte, wurde der Informationsaustausch 
immer schneller und bequemer. Durch die Erfindung 
des Telefons gelang es, Informationen in großer Menge 
zu übermitteln. In unserer heutigen Zeit übernehmen 
diese Aufgaben immer mehr die Computer, zuerst 
im professionellen und zunehmend im 
privaten Bereich. 


Es gibt viele Möglichkei- 
ten, Texte von einem 
Computer zum anderen 
zu schicken. Den einfach- 
sten Weg bietet die Tele- 
kommunikation. 
Benötigt werden eine Te- 
lefonanlage, für jeden. 
Computer je ein Akustik- 
koppler, das abgedruck- 
te Programm für Ihren 
Rechner und ein Termi- 
nal-Programm für die 
Gegenstelle. 

Bei einem Telefongespräch 
wird aus dem Schalldruck 


des gesprochenen Wortes 
eine Spannung mit wech- 
selnder Frequenz erzeugt. 
Diese wird über die Lei- 
tung übertragen und Lei- 
tungsverluste durch Ver- 
stärker wieder ausgegli- 
chen. Beim Empfänger 
wird diese Wechselspan- 
nung wieder in einen hör- 
baren Schalldruck zurück- 
verwandelt. 

Digitale Signale, die bei 
unserer Datenfernübertra- 
gung vorkommen, müssen 
in akustische Signale um- 


gewandelt werden. Nur 
dann können sie auch 
über die Leitung gesendet 
werden. Beim Empfänger 
angekommen, werden die- 
se akustischen Signale wie- 
der in digitale umgesetzt. 
Die Geräte, die eine sol- 
che Umsetzung bewerk- 
stelligen, nennt man Mo- 
Sau oder Akustikkopp- 
ET. 

Die Übertragungs-Ge- 
schwindigkeit beträgt 300 
Baud im Vollduplexver- 
fahren. Das heißt, es wer- 
den in einem Datenkanal 
gleichzeitig Daten gesen- 
det und empfangen. Die- 


ses Verfahren wurde in 


Europa genormt und trägt 
die Bezeichnung CCITT 
(Comite Consultative In- 
ternational Telegraphique 
et Telefonique). 

Es gibt zwei verschiedene 
CCITT-Normen. Zum ei- 
nen die CCITT-V.21-Norm, 
die zwei gleich große Da- 
tenkanäle besitzt. Damit 
lassen sich aber nur Ge- 
schwindigkeiten von 300 
Baud oder weniger errei- 
chen. 

Wollen Sie aber mit höhe- 
ren Übertragungsarten ar- 
beiten, so können die Da- 
ten nicht mehr gleichzei- 
tig empfangen und gesen- 
det werden. Das liegt dar- 
an, daß in einem Telefon- 
kanal keine zwei Daten- 
kanäle mit sicherem Stör- 
abstand untergebracht 
werden können. Sie müs- 
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sen also auf das Halb- 
Duplexverfahren, die 
CCITT-V.23-Norm, um- 
schalten. 

Hierbei werden die Da- 
ten entweder gesendet 
oder empfangen. Das 
Ende einer Übertragung 
wird als Schlußzeichen 
oder über einen langsa- 
men Datenkanal über- 
mittelt. Im Hauptkanal 
werden Daten mit 1200 
bps (Bits per Second) 
übertragen, ein Zusatz- 
kanal mit 75 bps wird für 
die Steuerung der Daten- 
übertragung verwendet. 


DIE RS-232- 
SCHNITTSTELLE 


Den Datenfluß zwischen 
Computer und anderen 
Peripherie-Geräten wie 
Drucker oder Akustik- 
koppler regelt die Schnitt- 
stelle RS-232, in Europa 
auch V24 genannt. Sie 

ist am geeignetsten für 
unsere Übertragung per 
Telefon. Die Übertragung 
erfolgt immer seriell, ein 
paralleler Transfer über 
Telefon ist nicht möglich. 
Bei der seriellen Übertra- 
gung werden die acht Bits 
eines Bytes einzeln über- 
tragen. Dadurch wird 
zwar die Geschwindigkeit 
geringer, aber Sie kom- 
men mit weniger Leitun- 
gen aus. 

Die Schnittstelle am 
Commodore ist durch ein 
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Modul erhältlich, bezie- 
hungsweise ein Kabel, 
das auf der Commodore- 
Seite einen Userportstek- 
ker und auf der anderen 
einen 25poligen Stecker 
(DB25) aufweist. Diese 
Kabel gibt es in der Re-. 
gel zu kaufen, sie nehmen 
auch die erforderliche 
Pegelumwandlung +12 
Volt vor. Sollten Sie aber 
vorhaben, dieses Kabel 
selbst zu basteln, so ent- 
nehmen Sie bitte die Pin- 
Belegung der beiden Stek- 
ker unserer Grafik. 
Achten Sie aber bei der 
Verwendung des User- 
ports als Eingang unbe- 
dingt auf die Eingangs- 
spannung. Sie darf nur in 
einem Bereich von null 
bis fünf Volt liegen. 

Soll der Userport als Aus- 
gang dienen, halten die 
Ausgänge nur die Bela- 
stung eines TTL-Eingan- 
ges aus. Es empfiehlt sich 
in jedem Fall, eine Puf- 
ferstufe einzubauen. 


OHNE TERMINAL- 


PROGRAMM 
GEHT NICHTS 


Das nächste wichtige, 
Handwerkszeug zur Über- 
tragung von Daten ist - 
das Terminalprogramm. 
Wollen Sie zwei Commo- 
dore-Rechner verbinden, 
reicht das Grundpro- 
gramm des zweiten 
Listings. 

Unser Beispiel zeigt Ihnen 
ein kleines Terminalpro- 
gramm für die Verbindung 
zwischen Commodore 
und PC. In Zeile 100 wird 
die RS-232-Schnittstelle 
geöffnet, der Bildschirm 
gelöscht und auf Klein- 
schrift umgeschaltet. Den 
OPEN-Befehl sind Sie von 
der Floppy gewohnt. Die 
Geräteadresse der RS-232- 
Schnittstelle lautet immer 
2. Danach folgt die Para- 
metereinstellung (Baud, 
Stopbits, Parität) mittels 
zweier CHR$-Anweisun- 
gen. In unserem Beispiel 
reicht für eine Übertra- 
gung mit 300 Baud, acht 
Bits, Vollduplex und kei- 
ner Paritätsprüfung der 
Befehl Chr$( 6)+Chr$(5). 
Für eine Übertragung mit 


TERMINAL-PROGRAMME 


18 rem terminal 1================p4 <jo> 
28 rem (p) commodore welt team <ho> 
38 rem =========================== ong> 
AD rem (c) by andy greil <bo> 
58 rem <pd> 
62 rem uebertragung B bit <no> 
78 rem von commodore-rechner <bh> 
88 rem auf fremdrechner <ai> 
90 rem =========================== 0 Cjg> 
128 open 2,2,8,chr$(6) +chr$(5) :pri 

ntchr$( 12) +chr$( 14) :printchr$( 147) <lc> 
110 dim g%( 256) ‚,h%( 256) <nm> 
128 for s=8t0255:h%( s)=s:next <dh> 
138 fors=32t064:h%( s)=s:next <mk> 
1408 fors=65t098:h%( s)=s+32:next <ad? 
158 fors=97t0122:h%[ s)=s-32:next <hk> 
168 h%( 20) =8 <pf> 
178 fors=193 to218:1=s-128:h%( s)=1 

‚next <gd> 
188 fors=-8t0255 <mi> 
198 1=h%(s) <mg> 
288 ifl<>@thengA( 1l)=s <pm> 
218 next <ch> 
228 print"Vebertragung-Start" <ie> 
230 get#2,a$ <oa> 
249 ifa$=""orst<>dthen278 <nf> 
258 ifa$=chr$( 18) then238 <fh> 
268 print chr$(g%lasc(a$))); <ge> 
278 geta$ <kf> 
288 ifa$=chr$( 95) then318 <ja> 
298 ifa$<>""thenprint#2,chr$( h%l as 

c(a$))); <im> 
308 goto 238 <hm> 
318 print:print"”Filename:";:poke19 

‚i:inputb$ <id> 
319 poke19,@8:print:open8,8,8,b$+", 

5,0" <nk> 
320 get#B,a$:su=st:print#2,a$;:pri 

nta$; <id> 
338 ifa$<>""thenprint#2,chr$(h%las 

c(a$))); <od> 
348 ifsu=®then328 <ad> 
358 closed:goto23d <nn?> 
368 rem ========================== chn> 
37drem programmende <aa> 
388 rem ========================== cda> 


TERMINAL-PROGRAMME 


18 
28 
38 
40 
58 
69 


rem 
rem 
rem 
rem 
rem 


terminal m—m 
(p) commodore welt team 


(c) by andy greil 
uebertragung 7 bit 
18 


300 Baud, sieben Bits, 
Vollduplex und keiner 
Parität müßte der Befehl 
OPEN2,2,0,Chr$(38) 
+Chr$(229) lauten. 

Der Commodore legt sich 
nach dem OPEN-Befehl 
zwei Puffer mit je 256 
Bytes an. Im einen wer- 
den die empfangenen und 
im anderen die zu senden- 
den Daten bis zur Weiter- 
verarbeitung aufbewahrt. 
Die Geschwindigkeit, mit 
der die Daten an die 
Schnittstelle geschickt 
werden, ist immer kon- 
stant. Daher ist es bei ei- 
ner größeren Geschwin- 
digkeit nötig, die Daten 
in einem Puffer zwischen- 
zulagern. 

Das gleiche geschieht mit 
jenen Daten, die bereits 
im Rechner angekommen 
sind, aber noch nicht wei- 
terverarbeitet wurden. In 
Zeile 110 werden dann 
zwei Variablen zur Daten- 
konvertierung initialisiert. 
G% steht für die Emp- 
fangsdaten und H% für 
die Sendedaten. 

Da bei allen Commodore- 
Heimcomputern der 
ASCII-Code umgekehrt 
zum Standard-ASCII- 
Code verschlüsselt ist, 
muß eine Codewandlung 
vorgenommen werden. 


Dies geschieht in den 
Zeilen 130 bis 170. Die 
Codewandlung betrifft 
aber nur die Klein- und 
Großbuchstaben. Bei 
Satzzeichen und ähnli- 
chem entspricht der 
Commodore-Code dem 
des Standards. 

Wird eine Taste gedrückt 
und liegt der ASCII-Wert 
des eingelesenen Zeichens 
im Bereich zwischen 64 
und 91, dann ist es ein 
Kleinbuchstabe. Soll die- 
ses Zeichen gesendet wer- 
den, so muß der Wert 32 
addiert werden (Zeile 
140). Das DELETE-Zei-. 
chen (20) wird in Zeile 
160 zum Standard-BACK- 
SPACE-Zeichen (8) um- 
gewandelt. 

Beim Empfang eines Zei- 
chens wird vom ASCII- 
Wert 32 abgezogen, wenn 
es ein Kleinbuchstabe war 
(Zeile 150). 

Vergleichen Sie dazu die 
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Tabelle der Standard- 
Codes mit der aus Ihrem 
Handbuch. 


VON DER THEORIE 
ZUR PRAXIS 


Mit unserem kleinen Ter- 
minalprogramm, das Sie 
abgetippt und auch hof- 
fentlich abgespeichert ha- 
ben, können Sie bereits 
mit Mailboxen oder an- 
deren Computern kom- 
munizieren. 

Als erstes verbinden Sie 
Ihren Rechner mit dem 
Akustikkoppler, schalten 
ihn ein und stellen den 
Wahlschalter auf ORIG 
(originate). Sollten Sie 
nicht mit einer Mailbox, 
sondern mit einem ande- 
ren Computer kommu- 
nizieren wollen, so muß 
dessen Akustikkoppler 
auf ANSW (answer) ge- 
schaltet sein. 

Schalten Sie Ihren Com- 
puter ein und starten Sie 
das abgetippte Terminal- 
programm. 

Plazieren Sie Ihr Telefon 
so, daß Sie den Telefon- 
hörer bequem mit dem 
Koppler verbinden kön- 
nen. Achten Sie unbe- 
dingt auf die richtige La- 
ge des Hörers. Als näch- 
stes wählen Sie die Num- 
mer des gewünschten 
„Ansprechpartners“. 
Ertönt nach dem Rufzei- 
chen ein hoher Pfeifton, 
ist die Gegenstelle zum 
Datenaustausch bereit. 
Wenn Sie mit einer Mail- 
box verbunden sind, so 
bestätigen Sie mit der 
RETURN-Taste, daß 
auch Sie bereit zum Da- 
tenaustausch sind. Der 
weitere Verlauf ergibt 
sich durch das Mailbox- 
menü. Da alle Mailboxen 
mit unterschiedlicher 
Menü-Führung arbeiten, 
gibt es keine einheitli- 
chen Wegweiser durch 
die Systeme. Sie müssen 
sich selbst einarbeiten. 
Wenn Sie ein vorbereite- 
tes sequentielles File sen- 
den wollen, so drücken 
Sie die ‚‚Pfeil-nach-links- 
Taste‘. Daraufhin werden 
Sie nach dem Filenamen 
gefragt. Geben Sie den 
Namen Ihres vorbereite- 


78 rem zwischen cbm-rechnern 


89 rem 


98 rem 
open 2,2,8,chr$( 38) +chr$( 229) 
printchr$( 147) ;chr$( 14) 


188 
18 
138 
135 
148 
+32 
158 
168 
178 
175 


189 a=asc(a$) :b=a:ifa>96thenb=a-32 
185 ifa<91 and a>64 then b=a+128 
198 ifa=8then b=28 
288 a=b:print chr$(a);:goto138 
21IB rem =============2=2=2=2=== === 
228 rem programmende 
238 rem ========================= 
‚ ASCIH-STANDARD-CODE 
Char Hex Dec Char Hex 
Char Hex Dec Char Hex 
A 41 65 a 61 
B 42 66 b 62 
C 43 67 6 63 
D 44 68 d 64 
E 45 69 e 65 
F 46 70 f 66 
G 47 71 g 67 
H 48 72 h 68 
| 49 73 i 69 
J 4A 74 j 6A 
K AB 75 k 6B 
L 4C 76 | 6C 
M 4D 77 m 6D 
N 4E 78 n 6E 
(6) 4F 79 [6) 6F 
P 50 80- p 70 
Q 51 81 q 71 
R 52 82 r 72 
S 53 '83 S 73 
% 54 84 t 74 
U 55 85 u 75 
V 56 86 V 76 
W 57 87 w 77 
x 58 88 x 78 
Y 59 89 y 79 
A 5A 90 z 7A 


geta$: ifa$=""then17& 
printa$; 


a=asc( a$) :ifa<91anda>64thena=a 


ifa=28 thena=8 
print#2,chr$(a); 


get#2,a$:ifa$=""then138 


ifa$=chr$( 18) then 178 
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Dec 


97 

93 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 


109 


110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 


ten Files an und bestäti- 
gen Sie mit RETURN. 
Ihr File wird nun zur Ge- 
genstelle gesandt. 

Unser kleines Terminal- 
programm ist natürlich 
nicht der Weisheit letz- 
ter Schluß, es soll Ihnen 
vielmehr die Grundzüge 
der Datenfernübertragung 
demonstrieren und Sie 
zum weiteren Ausbau des 
Programmes inspirieren. 


AKUSTIKKOPPLER 
ODER MODEM? 


Im Grunde sind auch die 
Akustikkoppler Modems. 
Denn das Wort Modem 

ist die Abkürzung von 
Modulator-Demodulator. 
Das, was wir im Hausge- 
brauch Modem nennen, 
sind Modems, die galva- 
nisch direkt mit der Te- 
lefonleitung verbunden 
sind. 

Im Gegensatz dazu gibt es 
die Akustikkoppler, die 
Signale akustisch empfan- 
gen und senden. 

Bei der Übertragung mit 
Akustikkopplern gibt es 
verschiedene Fehlerquel- 
len. Die Probleme begin- 
nen schon bei der Plazie- 
rung des Telefonhörers 

in die Muffen des Akustik- 
kopplers: Meistens ist bei 
den neuen Apparaten der 
Post der Hörer zu groß, 
bei den alten dagegen zu 
klein. Das hat zur Folge, 
daß die akustischen Si- 
gnale, die gesendet und 
empfangen werden, nicht 
richtig umgesetzt werden. 
Die Übertragung ist somit 
gefährdet, denn schon der 
kleinste Huster veranlaßt 
den Akustikkoppler, wirre 
Zeichen auf den Bildschirm 
zu bringen und auch zu 
übertragen. 

Abhilfe bringen da die 
Modems. Da sie direkt an 
der Telefonleitung ange- 
schlossen sind, fallen die 
Probleme mit störenden 
Geräuschen in der Umge- 
bung weg. Gekoppelt mit 
einem guten Terminalpro- 
gramm, können Sie sogar 
Ihr Modem Telefonnum- 
mern wählen lassen und 
das so lange, bis ein An- 
schluß erreicht ist. Ihr 
Computer nimmt Ihnen 
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sogar die lästige ‚„‚Ein- 
log-Prozedur‘‘ beim An- 
schluß mit Mailboxen ab. 
Auch können Sie damit 
Anrufe von anderen Com- 
puterbesitzern empfangen, 
die eine eigene Mailbox be- 
treiben. 

Leider gibt es für die 
Commodore-Homecom- 
puter wie C128, C64 oder 
Plus/4 noch keine von der 
Deutschen Bundespost 
zugelassenen und mit ei- 
ner ZZF-Prüfnummer ver- 
sehenen Modems. Es wer- 
den zwar einige von ver- 
schiedenen Firmen ange- 
boten, aber diese dürfen 
Sie nur an Haustelefonan- 
lagen und Nebenstellen 
betreiben. 

Also bleibt nur der gute 
alte Akustikkoppler und 
das Warten, bis sich unse- 
re liebe Post endlich ent- 
schließt, nicht nur an die 
professionellen PC-User, 
sondern auch an die 
Homecomputer-Besitzer 
zu denken. 


Computer lassen sich aber 
nicht nur per Akustik- 
koppler oder Modem mit- 
einander verbinden. Die 
direkte Verbindung ist 
immer noch die einfach- 
ste Lösung. Diese Art 
wird auch Null-Modem 
genannt. 

Für die Datenübertragung 
(Received Data, Trans- 
mitted Data, Signal 
Ground) sieht die RS- 
232-Norm nicht nur Ka- 
bel für die Datenübertra- 
gung vor, sondern auch 
solche für die Steuerung 
der Kommunikation. Da 
die Request-to-send 
(RTS)- und die Celar- 
to-Send (CTS)-Leitungen 
nicht eindeutig definiert 
sind, können die An- 
schlüsse bei verschiede- 
nen Rechnern unterschied- 
lich ausfallen. 

Verbinden Sie alle Leitun- 
gen zwischen den beiden 
Computern gekreuzt. Al- 
so die RTS (request to 
send) mit der CTS (clear 
to send)-Leitung und um- 
gekehrt. Die Signal-Erde 
wird mit der Signal-Erde 
verbunden. Die Leitungen 
TXD (Transmitted Data) 
und RXD (Received Da- 
ta) werden ebenfalls 


kreuzweise verbunden. 
Funktioniert die Übertra- 
gung nicht, so versuchen 
Sie, die Leitungen unge- 
kreuzt miteinander zu 
verbinden. Das wäre RTS 


S&A BASIC 


SEA BASIC DEMO 
18 rem s&6a basic demo==========616 
28 rem (c) by michael inden 
En :#ztrans128:#chn128:poke65287,1 


40 printchr$( 147)" 

n presents sGa basic 
58 fort=8t079:#scroll8,0,8,39,0,8: 
:forw=8t075:nextw,t:senclr 

68 #zdesign1,52,24,52,24,24,52,24, 
52 

78 #zdesign2,255,24,52,24,24,52,24 
‚52 

88 #zdesign3,52,24,52,24,24,52,24, 
255 

99 #zdesign4,52,24,52,24,24,52,24, 
52 

ı808 :#fill8,0,29,12,65 

118 fort=37toßdstep-1 

128 forx=Btoßstep-1 

138 :#setsprite1,t,5,x,8 

148 forw=Bto4ß:next 

158 :#spriteoff1 

168 #animate1,1:#animatel,1 

178 next:next 

188 scnclr 

198 print"aaaaasaaaaaaaaaaaaaaaaaa 
aaaaaaaaaaaaaaaa" 

288 print"bbbbbbbbbbbbbbbbbbbbbbbb 
bbbbbbbbbbbbbbbb" 

218 print"ccecceccecececeececccecccceccc 
eeccceeccecceccee"” 

228 print"dddddddddddddddddddddddd 
dddddddddddddddd"” 

238 #animate1,8:#animate2,2:#anima 
te3,3:#animate4,1:got0o238 

249 rem =p=r=0=g=r=a=m=m=e=n=d=e== 
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michael inde 


noch kein Erfolg einstel- 
len, so verbinden Sie 
auch noch die Leitung 
TXD und RXD direkt. 
Zum besseren Verständ- 
nis betrachten Sie bitte 

m) 


mit RTS und CTS mit unsere Grafik. 
CTS. Sollte sich immer 
SO WÄRE ES BESSER GEWESEN 
Das Listing 
C16-P4-SPECIAL Nr. 3 Seite 36 


In dem Artikel wurde das Beispiellisting S&A-BASIC- 
DEMO angesprochen, das aber nicht mit abgedruckt 
war. Deshalb wird es hier nachgeliefert. 


<fj> 
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Be BE nun ann. 2. SChVKÜLE 


DFÜ-LEXIKON 


von AbisZ 


In vielen Büchern über Datenfernübertragung finden sich 
unverständliche Fachausdrücke und Abkürzungen. Wir wollen Ihnen 
einen kleinen Überblick der häufigsten Bezeichnungen geben. 


ANSWER 
Senden mit dem Antwortfrequenz- 
paar fl=1850 Hz für O 

f2=1650 Hz für 1. 


ASCH 

American Standard Code of Infor- 
mation Interchange. 

ASCI ist eine genormte Code- 
Wandlung, die jedem Buchstaben, 
jeder Zahl und Sonderzeichen einen 
bestimmten numerischen Wert zu- 
ordnet. Dieser Code wird von den 
meisten Computern verstanden und 
wird auch als Standard im DFÜ- 
Bereich verwendet. 


BAUD 

Gibt die Übertragungsgeschwindig- 
keit an. Anzahl der Signalwechsel 
pro Sekunde. 


BPS . 

Eine andere Möglichkeit, die Über- 
tragungsgeschwindigkeit zu be- 
zeichnen. 

Anzahl der übertragenen Bits pro 
Sekunde. 


BTX | 5 
Bildschirmtext der Post; Übertra- 
gung mit 1200/75 Baud. 


CARRIER 

Carrier bedeutet auf deutsch ‚‚Trä- 
ger“ und bezeichnet im allgemei- 
nen den Ton, mit dem Computer 
signalisieren, daß sie zur Kommu- 


nikation bereit sind. Dieses Carrier- 
Signal ist ein gleichbleibender Pfeif- 
ton mit einer bestimmten Fre- 
quenz. Mailboxen zum Beispiel 
warten bei Anruf, ob ein solcher 
Carrier vorhanden ist, erst dann be- 
ginnen sie mit dem Senden von 
Daten. 


CBBS 
Computer Bulletin Board System. 


CCITT 
Comite Consultative International 
Telegraphique et Telefonique. 


Europäische Norm für Telekom- 
munikation. 


TS 
Clear To Send oder empfangsbe- 
reit. 
Leitung, die anzeigt, daß ein DCE- 
Gerät bereit ist, Daten vom DTE- 
Gerät zu empfangen. Diese Leitung 
ist im Normalfall AUS. Wenn über 
die RTS-Leitung Sendebereitschaft 
angezeigt wird, so löst das DCE-Ge- 
rät mit CTS EIN das Senden von 
Daten aus. Ist die RTS-Leitung auf 
AUS geschaltet, so wird auch die 
CTS-Leitung auf AUS geschaltet 
(siehe auch RTS). 


CUG 


Closed User Group, spezielle Teil- 
nehmergruppe im Datex-P-Netz. 
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DATEX-P 

Datennetz der Deutschen Bundes- 
post. 
en bis 
9600 Baud. 


DCD 

Empfangspegel vorhanden. 
Leitung, über die ein DCE-Gerät ei- 
nem DTE-Gerät anzeigt, daß es 

ein Signal empfängt. Dies veran- 
laßt das DTE-Gerät, ein RTS-Signal 
zu senden. 


DCE 

Data Communication a 
Gerät, mit dem Daten empfangen 
werden können (Modem, Drucker 
und so weiter). 


DSR 

Datenempfänger betriebsbereit. 
Leitung, die dem DTE-Gerät an- 
zeigt, daß das DCE-Gerät betriebs- 
bereit ist. Im Normalfall ist diese 
Leitung auf EIN geschaltet. 


DTE 

Data Terminal Equipment. 

Gerät, das Daten sendet, zum Bei- 
spiel Terminal, Computer. 


DTR 

Data Terminal Ready.Das DTE- 
Gerät zeigt mit einem EIN-Signal 
an, daß es betriebsbereit ist. 


DOWN-LOAD 

Bezeichnung für das Einlesen von 
Daten (Texte, Programme) aus ei- 
nem anderen Rechner. 


FSK 

Frequency Shift Keying. 

Daten werden durch Frequenzum- 
tastung moduliert. 


ISDN 

Integrated Services Digital Network. 
Sämtliche Daten, auch Sprache, 
werden digital übertragen. 


LOGIN 
Verbindungsaufbau zu einem Rech- 
ner, meistens mit einer User-ID. 


LOGOFF 

Gegenteil von LOGIN. 

Wird meistens mit den Befehlen 
LOGOFF oder BYE durchgeführt. 


MAILBOXEN 

Mailboxen nennt man in unserer 
heutigen Zeit Computer, die über 
normalen Telefonanschluß oder 
DATEX-P angerufen werden kön- 
nen. Mailboxen stellen dem Anrufer 


« 


SERVICE Eee Auen rue a 


sogenannte „Bretter‘‘ zur Verfü- 
gung, auf denen öffentliche Mittei- 
lungen an andere Anrufer geschrie- 
ben oder deren Nachrichten abgeru- 
fen werden können. Um einen per- 
sönlichen ‚‚Briefkasten‘ in einer 
Mailbox zu erhalten, ist es in der 
Regel notwendig, sich als „User“ 
eintragen zu lassen. In diesen Brief- 
kasten können andere Teilnehmer 
persönliche Nachrichten schreiben, 
die nur der eingetragene User lesen 
kann. Außerdem können Sie Mail- 
boxen als elektronische Tageszei- 
tungen, produziert von den Anru- 
fern, betrachten. 


MODEM 

Modulator-Demodulator. 

1. Das Galvanische Modem: 

Es wird direkt an der Telefonleitung 
angeschlossen. Muß von der Bundes- 
post genehmigt und angeschlossen 
werden. 

2. Der Akustik-Koppler: 

Der Telefonhörer wird auf Gummi- 
manschetten des Kopplers aufge- 
steckt. Keine direkte elektrische 
Verbindung zum Telefonnetz. 

Nur mit ZZF-Nummer der Bundes- 
post genehmigt. 


NUA 

Network User Adress. 
Teilnehmerkennung im DATEX-P- 
Netz. Gibt die anzurufende Num- 
mer an. 


NUI 

Network User Identification. 
Teilnehmerkennung im DATEX-P- 
Netz. Gibt die eigene Nummer an. 
Dient zur Abrechnung der empfan- 
genen Daten durch die Bundespost 
und kann nur dort beantragt wer- 
den. 


ORIGINATE 
Senden mit dem Sendefrequenz- 
paar fl=1189 Hz für O 

f2= 980 Hz für 1 (siehe 
ANSWER). 


PAD 

Packet Assembly and Dissassembly 
Facility. 

DATEX- P-Vermittlungsstelle. 
Übernimmt die Umwandlung des 
asynchronen Datenflusses in ge- 
normte „Pakete“ und umgekehrt. 


PARAMETER 

Als Parameter werden sämtliche 
Einstellungen im Übertragungspro- 
tokoll bezeichnet (siehe auch 
PROTOKOLL). 


PARITÄT 
1. Gerade Parität: 
Das Paritäts-Bit wird gesetzt, wenn 


die Anzahl der Datenbits im gesen- 
deten Zeichen eine gerade Zahl er- 
gibt. 

2. Ungerade Parität: 

Ist im gesendeten Zeichen die An- 
zahl der Datenbits ungerade, wird 
das Paritätsbit gesetzt. : 

3. Keine Parität: 

Bei der Übertragung wird auf das 
Senden des Paritätsbits verzichtet. 


PROTOKOLL 

1. Festlegung der Regeln bei der Da- 
tenübertragung (zum Beispiel Baud, 
Übertragungsart, Parität). 

2. Aufzeichnung der empfangenen 
Daten. 


RS-232 
Genormte Schnittstelle zur seriellen 
Übertragung von Daten. 


RTS 

Ready To Send oder Request To 
Send (sendebereit). 

Leitung, mit der vom DTE-Gerät 
beim DCE-Gerät angefragt wird, ob 
Daten gesendet werden können. Im 
Normalfall ist diese Leitung AUS. 
Sollen Daten gesendet werden, so 
wird vom DTE-Gerät ein EIN-Signal 
an das DCE-Gerät gesendet. Die 
Übertragung beginnt, wenn das 
DCE-Gerät über die CTS-Leitung 
ein EIN-Signal sendet. Beim Beginn 
der Übertragung wird das RTS- 
Signal auf AUS gesetzt. 


RxD 

Recieved Data. 

Über diese Leitung werden Daten 
vom DTE-Gerät zum DCE-Gerät ge- 
sendet. 


SG 
Signal Ground. 
Erdungsleitung. 


STARTBIT 
Zeigt den Beginn eines zu sendenden 
Zeichens an. 


STOPBIT(S) R 
Kennzeichnung des Übertragungs- 
endes eines Zeichens. Meist werden 
ein oder zwei Stopbits verwendet. 


SysOp 

System Operator. 

Bezeichnung für den Betreiber ei- 
ner Mailbox. 


TERMINAL 

Im allgemeinen wird damit das Pro- 
gramm bezeichnet, das der Compu- 
ter braucht, um mit anderen Rech- 
nern zu kommunizieren. 

Außerdem werden auch die einzel- 
nen Arbeitsplätze einer Großre- . 
chenanlage als Terminal bezeichnet. 
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TxD 

Transmitted Data. 

Über diese Leitung werden die Da- 
ten vom DTE-Gerät zum DCE-Ge- 
rät übermittelt. 


UP-LOAD 

Bezeichnung für das Senden von 
Daten (Texte, Programme) an ei- 
nen anderen Rechner. 


USER-ID 

User Identification, Benutzerer- 
kennung. 

Nach Eingabe der User-ID erkennt 
das angerufene System, ob der An- 
rufer zugriffsberechtigt ist oder 
nicht. 


ÜBERTRAGUNGSARTEN 


1. SIMPLEX: 

Übertragung nur in eine festgelegte 
Richtung, vom Sender zum Emp- 
fänger, möglich (Rechner— Ermchert, 


2. HALBDUPLEX: 
Datenübertragung in beide Rich- - 
tungen, aber immer nur abwech- 
selnd. Wird bei sehr hohen Übertra- 
gungsgeschwindigkeiten benutzt. 


3. VOLLDUPLEX: - 

Die am meisten benutzte Übertra- 
gungsart. 

Datenübertragung in beide Rich- 
tungen gleichzeitig. 


V.21 
Protokoll für eine Übertragung mit 
300 Baud. 


V.24 
Europäische Norm der RS-232- 
Schnittstelle. 


X.25 
CCITT-Protokoll für synchrone 
Datenübertragung. 


X-MODEM 

In vielen neueren Terminalpro- 
grammen für Computer befindet 
sich der Menüpunkt X-MODEM. 
Damit lassen sich Programme so- 
fort lauffähig übertragen, ohne den 
lästigen Umweg über ASCII-Code- 
wandlung. 


XON/XOFF PROTOKOLL 
Vereinbarte Steuerung des Daten- 
flusses während der Datenübertra- 


gung. 

XON — (CTRL-O): 

Signal für die Gegenstation zum 
Senden der Daten. 

XOFF - (CTRL-S): 

Signal für die Gegenstation, daß sie 
das Senden von Daten unterbre- 
chen soll. 


areas T\P5 & TRICKSE 


G-und S-Shape 


Shapes bieten erstaunliche Möglichkeiten. 
Trotz der dürftigen Beschreibung im Rechnerhand- 
buch brauchen Sie darauf nicht zu verzichten. 
Wir füllen die Informationslücke. 


Vor allem das Abspei- 
chern und Einladen der 
als Strings definierten 
Shapes macht vielen 
Hobby-Programmierern 
Probleme. Will man sich 
eine SHAPE-Bibliothek 
anlegen, so ist es sehr um- 
ständlich, die SHAPE- 
Daten immer in Datazei- 
len abzulegen. Schließ- 
lich liegen die Werte be- 
reits als Strings vor und 
es erscheint zunächst sehr 
einfach, diese Strings mit 
PRINT#8 ‚A$ abzuspei- 
chern und mit INPUT#8, 
A$ wieder einzuladen. 
Das Abspeichern erfolgt 
noch völlig problemlos, 
wie das Beispiel ab Zeile 
1000 in unserem DEMO- 
Programm (Listing 1) 
zeigt. Der Zusatz “‚s,w“ 
öffnet ein sequentielles 
File zum Schreiben (eng- 
lisch: write). Bei Kasset- 
tenbetrieb beachten Sie 
die entsprechenden Hin- 
weise im Handbuch zum 
OPEN-Befehl (mit Sekun- 
däradresse 2). 

Wollen Sie diesen SHAPE- 
String jedoch einfach mit 
INPUT# einlesen, tau- 
chen die Probleme auf. 
Der INPUT-Befehl er- 
kennt nämlich einige Zei- 
chen als Trennungszei- 
chen, zum Beispiel die 
CHR$-Codes 13 (RE- 
TURN), 44 (Komma) und 
58 (Doppelpunkt). 

Steht eines dieser Zeichen 
im SHAPE, so wird der 
Rest des SHAPESs nicht 
eingelesen. 

Ein weiterer Nachteil des 
INPUT#-Befehls ist die 
Tatsache, daß damit das 
File-Ende nicht abgefragt 
werden kann, denn die 
Variable ST wird erst 
dann ungleich Null, wenn 
die EOF-Marke (End of 
File) gefunden wird. 
Dann bleibt das Pro- 
gramm hängen, denn es 
kommt kein Zeichen 
mehr, das dem INPUT#- 


Befehl das Ende des 
Strings anzeigt. 

Viele Programmierer um- 
gehen diese Schwierigkei- 
ten, indem sie den String 
Zeichen für Zeichen in 
ASCII-Werte umwandeln 
und diese als Zahlen ab- 
speichern und einlesen. 
Der entscheidende Nach- 
teil hierbei ist, daß dafür 
wesentlich mehr Spei- 
cherplatz und daher auch 
mehr Einlesezeit benö- 
tigt wird. Es ist wesent- 
lich besser, auf den GET#- 
Befehl zurückzugreifen. 


STRINGS SCHEIBCHEN- 
WEISE EINLESEN 


Zunächst muß das SEQ- 
File mit dem Zusatz 

s,r“ für Lesen (eng- 
lisch: read) geöffnet wer- 
den (OPENI1,1,0,‘“‘name“ 
bei Kassette). Jetzt muß 
nur noch ein Zeichen 
nach dem anderen mit 
GET#8,A$ eingelesen 
werden, wie dies ab Zei- 
le 1030 gezeigt wird. 
Aber Vorsicht! Auch hier 
sind einige Fallstricke 
vorhanden. Benutzen Sie 
die Routine, wie sie ab- 
gedruckt ist. Vor allem 
drei Fehlerquellen gibt 


es: 

Fehler eins: Wird Q$ di- 
rekt zu R$ addiert, so 
werden Nullen, die in den 
meisten SHAPESs zahl- 
reich vorhanden sind, als 
Leerzeichen interpretiert, 
und bei der Addition mit 
R$=R$+0Q$ bleibt R$ un- 
verändert (was normaler- 
weise auch vernünftig ist). 
Dagegen wird R$ tatsäch- 
lich um einen „Null- 
string“ ne wenn 
im Programm R$=R 
+CHR$(0) steht. 

Fehler zwei: Beim Um- 
wandeln von Q$ in den 
ASCII-Wert Q muß ein 
CHR$(0) zu Q$ addiert 
werden, da ein Leerstring 
im ASC-Befehl sonst ei- 
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18 rem shape-demo=======-=->--==-==-=p4 
28 rem (p) commodore welt team 

3B rem =============2 22mm 
48 rem (c) by r.schmid-fabian 

58 rem i 

60 rem 

78 rem basic v3.5 

88 rem plus4 (ci6/116 + 64 kb) 

90 rem ========- == == === === 
188 trap328 


118 rem ####&* shapes lesen FHHHHR 

128 fora=-Bto123:readc:a$=a$+chr$(c 

) :next:gosub53@ 

138 fora=8to123:reade:b$=b$+chr$(c 

) :next:gosub538 

148 rem ** shapes untereinander ** 

158 graphic1,1:gshapea$:gshapeb$:g 

osub558 

168 rem ** shäpes nebeneinander ** 

170 x0=109:yB=198 

188 la=1len(a$) :ba=asc(mid$( a$, la-3 

‚!)):rem breite von shape a$ 

198 ha=asc(mid$(a$, 1l1a-1,1)):rem ho 

ehe von shape a$ 

208 gshapea$,x@,y®,1:gshapeb$, xd+b 
a,y@,1:gosub558 

218 rem #** shapes verkleinern *** 

228 mid$( a$,1a-3,1)=chr$( ba-7) :rem 
rechte seite um 7 bit kuerzen 

238 mid$(b$,1a-3,1)=chr$( ba-7) 

248 graphic1,1:gshapea$,xd,y@,1:gs 

hapeb$, xB+ba-7,y®,1:gosub558 

258 rem #* shapes uebereinander *#* 

268 graphic1,1:forxd=19t0288step42 

:gshapea$,xB,y@,4:gshapeb$, xA+ba-1 

8,y8-5,4:next 

278 rem * shape stueckchenweise *#* 

288 gosub55®:graphic1,1 

298 fori=1t0128:c$=c$+chr$(B) :next 

:c$=c$+chr$( 39) +chr${ 8) +chr$( 23) +c 

hr$( 8) 

3880 restore438:fora=1t0o12®:readc:m 

id$(c$,a,1)=chr$(c) :gshapec$, 198, 1 

Bd:next 

318 gosub5508 

328 graphicd:end 

338 rem #H#### shape 1 FRRRFRRRRER 

348 data®ß,8,48,0,D, B, 8,72,112,8,8, 

8,132,112,0,8 

352 data1,2,112,8,0,2,49,112,8,0,4 

‚72,240,0,0,8 

368 data72,112,0,8,16,48,48,8,8,32 

‚8,16,8,8,64,8 

378 data8,8,0,128,0,4,0,1,0,0,2,8, 

3,255,7255,255 

388 dataß,2,0,0,1,8,2,252,1,253,6, 

2,132,1,5,8 

398 data2,132,1,5,8,2,252,249,253, 


skar 
<ho> 
<ng> 
<jp> 
<pd> 
<ah> 
<nl> 
<fd> 


<jg> 
<fm> 
<fh> 
<ho> 


<ah> 
<jf> 


<ph> 
<bm> 
<hb> 
<bp> 
<gg> 


<mo> 
<jie> 


<1h> 
<nk> 


<ga> 


<on> 


<mi> 
<fg> 
<ho> 


<pd> 


<ca> 
<el> 
<lg> 
<jj> 
<bn> 
<cb> 
<hn> 


<gh> 


<gg? 


SHAFE-LISTINGS 


0,2,8,136,1,8,2 

408 dataß, 136,1,0,2,8,152,1,0,2,8, 
136,1,8,2,8 

418 data136,1,0,3,255,255,255,0,39 
‚0,23,8 

428 rem ###### shape 2 #rarsueeeer 
430 data®,1,252,0,0,0,3,254,80,0,8 
440 data7,255,0,0,0,15,255,128,8 
450 data®,31,255,192,0,0,63,255,22 
4,0,0,63,255,224,8,8 

460 data63,255,224,08,0,63,255,224, 
0,0,63,255,224,0,8,63 

478 data255,224,0,9,31,255,192,0,8 
‚15,255,128,08,0,7,255 

480 data®,9,8,3,254,0,0,0,1,252,0, 
0,0,0,112,0 

498 datad,0,0,112,0,0,0,0,112,0,0, 
8,0,112,8,8 

5A2 dataß,9,112,8,8,8,8,112,90,8,0, 
8,112,0,0,0 

518 dataß,112,0,8,39,8,23,8 
528 rem **datazeile zeigen 
538 print,peek( 63) +256*peek( 64) :re 
turn 

548 rem *###* warten auf taste *#*** 
558 char, 18,23,” ":char, 18,23 
‚"taste”:getkeyq$:return 

1088 rem *#** shape abspeichern 
1818 graphic®:open8,8,8,"shape a,s 
‚w":print#8,a$:close8 

1028 rem #** shape einladen **##** 
1838 open8,8,8,"shape a,s,r" 

1040 get#8,q$:q=asc( q$+chr$(B)):if 
st=®thenr$=r$+chr$(g) :goto 19048 
1858 closeB 

1868 graphic1,1:gshaper$:getkeya$: 


sera 


zer 


graphicd 

1978 rem ====3=====-=-===== = ===. = 
1888 rem fuer c16/116 ohne 

18908 rem erweiterung alle rem- 
11088 rem zeilen und die programm- 
1118 rem zeilen ab 1888 loeschen 
1120 rem ==>>>=55> = ererannnnn 
18 rem shapseditor=======-=--=-==-=515 


28 rem (p) commodore welt team 

38 rem ======3==================== 
48 rem (c) r. schmid-fabian 

58 rem ci6/116 plus4 

68 rem 
78 trap268 

88 scnclr:char ‚5,5,"bitte shape m 
it #* zeichnen 


<kd> 
<dm> 


<gi> 
<nn> 
<cg> 
<db> 


<jf> 
<fo> 
<al> 
<cg> 
<cg> 


<ej? 
<cf> 
<bi> 


<fi> 
<jh> 


<bj> 
<mn> 


<ch> 
<oa> 
<dj> 


<ma> 
<pb> 


<ip> 
<jo> 
<pm?> 
<dn> 
<bg> 
<hp> 
<cd> 


x1b> 
<ho> 
<ng> 
<fe> 
<oe> 
<nk> 
<ho> 


<ec> 


24 


98 char, 1,7,"untere rechte ecke mi 
t # kennzeichnen" 

188 char,8,9,"danach erst return" 
118 ti$="ODOOAR" :wait164,1:rem pau 
se 

128 rem tastatur als eingabekanal* 
138 scnelr:printchr$(27)"m";:rem s 


 croll aus 


140 open1,@:input#1,q$:closei 

158 printchr$(27)"1":rem scroll ei 
n 

168 rem * shape zeichnen FH*+r+#r** 
178 ba=3072:dim x,y,xm,ym:x8=148:y 


0=98 

188 graphic1,1:g=35:5=32 

198 for y=B to 24:for x=B to 39 
208 w=peek(ba)::if w=g then 248 

218 ba=ba+1 

228 if w<>s then draw 1,xQ0+x,yQO+y 
238 nextx:nexty 

248 sshape sh$,x@,yB,xB+x-1,yQD+y-1 
258 getkeyg$ 

268 printchr$( 27)"1":graphicd 

278 scnclr:input”SHAPE als DATA-Ze 


ilen ausgeben";q$:if q$="n" then e 
nd 

288 rem * shape sh$ in data *#r###+ 
298 zu=1808:a=1:e=len( sh$) :z=2:pri 
ntchr$( 147); 

388 printzn"”dA”;e;":rem start” 

318 zn=zn+1iß:printzn"dA "; 
328 for a=a to a+t15 

338 if ae then printchr$( 157)" *: 
print"renU18, 18" :g0to368 

348 printmid$( str$(asc(mid$(sh$,a, 
1))):,2)” ,"; next 

358 printchr$( 157)" ":z=z+1:goto31 
8 

368 tp=1319:poketp, 19:fori=1toz:po 


ketpti, 13:next:poke239,i:end 

378 rem ========================== 
388 rem ab hier in eigenes 

398 rem programm uebernehmen 

400 rem ===============2===22==22==== 
"A180 read d:sh$="" 

428 for i=1 to d:read a:sh$=sh$+ch 


r$(a) :next 

430 rem =e=n=d=e==========-===2=2==== 
18 rem =file to data 
28 input"prg-name”;p$ 
38 open8,8,8,p$:",s,r" 

48 zn=-1088:fora=Bto123:inputf#B,c 
58 a$=a$+mid$( str$(c) ,2)+",":iflen 
(a$)>25thenprintzn;"data "+a$:a$=" 
":zn=zn+t18 

68 next:printzn;"data "+a$+chr$( 28 
):close8 

78 rem =e=n=d=e=====-============>== 


SS __  _  _______ WISS 


nen SYNTAX ERROR er- 
zeugt. Der Interpreter un- 
terscheidet also zwischen 
Leerzeichen mit der Län- 
ge O und CHR$(0) mit 
der Länge |. 

Fehler drei: Das Ende des 
Strings muß richtig erfaßt 
werden. Der PRINT#-Be- 
fehl schreibt nämlich am 
Ende des Strings ein RE- 
TURN-Zeichen (CHR$ 
(13)). Dieses wird natür- 
lich durch GET# mit er- 
faßt und an R$ angefügt. 
Das hat zur Folge, daß 
das HI-Byte der SHAPE- 
Länge in Y-Richtung 13 
ist (normalerweise null) 
und der Computer ver- 
sucht, 13*256 Zeilen 
darzustellen. 

Davon ist er leider auch 
mit der STOP-Taste 

nicht abzuhalten. Daher 
darf die String-Addition 
erst erfolgen, nachdem 
entschieden ist, ob das 
Fileende schon gefunden 
wurde (ST >0). 

Werden mehrere 

SHAPESs in ein einziges 
File geschrieben, funk- 
tioniert diese Methode na- 
türlich nicht. Der einfach- 
ste Weg ist dann, als erste 
abgespeicherte Zahl die 
Länge des SHAPE-Strings 
abzuspeichern. Diese Län- 
ge wird dann auch als er- 
stes eingelesen und be- 
stimmt die Anzahl der 
Durchläufe in der For/ 
Next-Schleife. 


SHAPE ZU SHAPE 


GESELLT SICH GERN 


Da ein String nur maxi- 
mal 255 Zeichen umfaßt, 
ist die Größe eines 
SHAPESs sehr begrenzt. 
Sollen größere Minigrafi- 
ken dargestellt werden, 
müssen diese aus mehre- 
ren SHAPEs zusammen- 
gesetzt werden. Die ein- 
fachste Methode, zwei 
SHAPEs zusammenzufü- 
gen, ist, sie untereinan- 
der oder nebeneinander 
zu positionieren. 
Dazu wird keinerlei Be- 
rechnung benötigt. Wie 
Zeile 150 im Demo-Pro- 
gramm zeigt, werden bei 
dem SHAPE-Komman- 
do ohne x-y-Angabe die 
SHAPESs automatisch un- 


tereinander plaziert. 
Steht hinter dem String 
keine Zahl, so wird als 
Startpunkt der Pixel-Cur- 
sor genommen. Dieser 
steht nach dem ersten 
SHAPE-Kommando an 
der linken unteren Ecke 
des SHAPESs. 

Etwas schwieriger ist es, 
zwei SHAPESs direkt ne- 
beneinander darzustellen. 
Ist die x-Ausdehnung des 
ersten SHAPEs bekannt, 
so braucht diese nur zu 
dessen Startwert addiert 
zu werden, um den Start- 
wert des zweiten 
SHAPESs zu erhalten. 


Eine allgemeinere Routine, 


die beliebige SHAPESs ne- 
beneinander darstellt, 
muß die Breite des ersten 
SHAPESs ermitteln kön- 
nen. Dies geschieht in 
Zeile 180. Die letzten 
vier Bytes des SHAPEs 
enthalten in LO/HI-Dar- 
stellung die x- und die 
y-Ausdehnung. Hier wird 
nur das LO-Byte verwer- 
tet, da SHAPESs mit einer 
Breite größer 255 selten 
vorkommen. In Zeile 190 
ist das analoge Verfahren 
zum Ermitteln der Höhe 
dargestellt. 


ZU GROSSE 
SHAPES VERKLEINERN 


Wird ein SHAPE mit Hil- 


fe eines SHAPE-Editors 
erzeugt, so wird oft un- 
nötigerweise ein viel grö- 
ßerer SHAPE abgespei- 
chert, als gewünscht ist. 
Der ganze Editierbereich, 
meist eine Bildschirmsei- 
te mit 40*25 Zeichen, 
wird in ein SHAPE um- 
gewandelt. Da die Dar- 
stellung eines SHAPEs 
relativ langsam erfolgt 
und stark von der Größe 
abhängt, sollten zu große 
SHAPESs verkleinert wer- 
den. 

Eine Möglichkeit ist 
durch den GSHAPE gege- 
ben. Liegt der zu große 
SHAPE als A$ vor, wird 
er mit GRAPHIC2,1: 
GHAPEAS$ in der linken 
oberen Ecke dargestellt. 
Dann definieren wir uns 
mit SSHAPE B$,x0,y0, 
x1,yl einen neuen, klei- 
neren SHAPE. Er wird am 


besten mit GSHAPE B$, 
100,100,1 zur Kontrolle 
invers dargestellt, bevor er, 
wie in Zeile 1010 gezeigt 


wurde, abgespeichert wird. 


Mit etwas Probieren sind 
die optimalen Werte für 
x0O bis yl schnell gefun- 
den. 

Wie sich auf einfache Wei- 
se ein SHAPE verkleinern 
läßt, der nur rechts zu 
breit ist, wird in Zeile 220 
gezeigt. Hierbei wird le- 
diglich das LO-Byte des 
x-Wertes verändert. 

Bei unserem SHAPE- 
EDITOR ist dies nicht nö- 
tig, da wir die Größe 

des SHAPEs durch 
Setzen eines #-Zeichens 
in die rechte untere Ecke 
selbst definieren können. 
Die gesetzten Punkte 
werden durch ‚,*“ festge- 
legt, und nach RETURN 
wird das SHAPE in 
DATA-Zeilen umgewan- 
delt. 

Oft wird für ein Spiel die 
Grafik mit SHAPESs auf- 
gebaut. Wenn die Bild- 
teile nicht rechteckig 
sind, kann es vorkom- 
men, daß das zweite 
SHAPE einen Teil des er- 
sten überschreibt. In Zeile 
260 wird gezeigt, wie dies 
mit der EOR-Verknüp- 
fung vermieden wird. 
Leider werden uns sehr 
selten Spiele zugesandt, 
die SHAPEs verwenden, 
obwohl dadurch der beste 


“ Hintergrund zu erzielen 


wäre. Der Grund liegt si- 
cher in der Langsamkeit 
der SHAPE-Darstellung. 
Man kann jedoch die Vor- 
teile eines veränderten 
Zeichensatzes und die Ge- 
schwindigkeit des CHAR- 
Befehls sehr gut mit der 
hervorragenden Grafikfä- 
higkeit der SHAPESs ver- 
binden. Das Hauptpro- 
blem dabei ist meist das 
Erkennen der Kollision 
der Spielfigur mit Hinder- 
nissen oder Schätzen. 
Versuchen Sie es doch 
einmal mit folgendem Tip: 


Am Anfang wird ein In- 
tegerfeld mit DIM XY% 
(40,25) definiert; Integer- 
felder brauchen nur 2/5 
des Platzes von normalen 
Feldern. In ihm werden 
die Spalten- und Zeilenpo- 


25 


sitionen, die das SHAPE 
jeweils abdeckt, als Eins 
gesetzt, wenn es ein Hin- 
dernis, und als Zwei, wenn 
es ein Schatz ist. Die 
Spielfigur wird mit ver- 
ändertem Zeichensatz 

und dem CHAR-Befehl er- 
zeugt und bewegt, wobei 
jede Bewegung mit dem 
XY%-Feld kontrolliert 
werden kann. 


EIN TRICK FÜR 
SHAPE-SAMMLER 


Wer aus einem fertigen 
Spiel ein SHAPE in seine 
Sammlung aufnehmen 
will, steht oft vor dem 
Problem, daß an den 
DATA-Zeilen der Anfang 
und das Ende.eines be- 
stimmten SHAPESs nicht 
erkennbar ist. Wenn da- 
vor noch ein langes Ma- 
schinenprogramm steht, 
wird das Auszählen sehr 
mühsam. Leichter er- 
kennbar ist die FOR/ 
NEXT-Schleife, mit der 
die Daten eingelesen 
werden. 

Um die richtige Zeilen- 
nummer zu den entspre- 
chenden Daten zu finden, 
gibt es einen einfachen 
Trick. Die Speicherstel- 
len 63/64 enthalten das 
LO- beziehungsweise 
HI-Byte der aktuellen 
DATA-Zeile. Diese kann 
somit, wie in Zeile 530 
des DEMO-Programms, 
berechnet werden. 

Es gibt auch noch eine an- 
dere einfache Möglichkeit: 
Das Programm wird mit 
der STOP-Taste angehal- 
ten und das SHAPE als 
String wie in Zeile 1010 
abgespeichert. 

Mit Hilfe des kleinen 
Hilfsprogramms „File to 
Data‘ (Listing 2) können 
die Daten dann in DATA- 
Zeilen umgewandelt wer- 
den. Das Programm zeigt 
jedoch nur die Zeilen auf 
dem Schirm an, auf eine 
automatische Einbindung 
mit Hilfe der Tastaturpuf- 
fer-Methode wie im 
SHAPE-Editor wurde ver- 
zichtet. Meist reicht der 
Platz auf dem Schirm aus, 
um alle DATA-Zeilen dar- 
zustellen, die dann mit 
RETURN übernommen 
werden. D 
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HARDCOPIES 
Grundlagen 


GRAFIKBILDSCHIRM 
Organisation und Hardcopies 


Für jeden 

Computer 

und jeden 
Drucker 


Hardcopy zu klein, zu groß, zu wenig dicht, 
falsches Verhältnis von Breite und Höhe oder für den 
speziellen Drucker nicht verfügbar? In zwei Folgen 
bringen wir Grundlagen, Möglichkeiten und Listings. 


Mit den Grafikbefehlen 
des BASIC V3.5 kann je- 
der Bildpunkt auf be- 
queme Weise angespro- 
chen werden. Schwierig 
aber wird es, wenn es gilt, 
eine Hardcopy des Gra- 
fikbildschirmes auszu- 
drucken. Im Bediener- 
handbuch zum Rechner 
ist darüber nichts zu fin- 
den, zumindest nicht im 
C16-Handbuch. Dieses 
bricht mitten im Anhang 
einfach ab. 
Dem C116- oder Plus/4- 
Handbuch können wir auf 
Seite 228 entnehmen, daß 
der Bildschirmspeicher für 
die a den Speicher- 
Sr von $2000 bis 

3FFF belegt. Um damit 
allerdings etwas anfangen 
zu können, bedarf es ent- 
weder weiterer Informa- 
tionen oder einiger Expe- 
rimente. 
Wie wird die Grafik, die 
immerhin die Information 
über 64.000 Bildpunkte 
enthalten muß, in einem 
Adreßraum von etwa 
8.000 Bytes gespeichert? 
Dies kann nur dadurch 
geschehen, daß ein Byte 
die Information über acht 
Bildpunkte enthält. Wie 
wir wissen, besteht ein 
Byte aus acht Bits. Jeder 
Bildpunkt kann entweder 
gesetzt oder nicht gesetzt 
sein. Ist er gesetzt, so ist 
auf dem Bildschirm die 
Vordergrundfarbe zu se- 


hen, ansonsten die Hinter- 
grundfarbe. 

Gesetzte und nicht ge- 
setzte Bildpunkte lassen 
sich in Form von gesetz- 
ten und nicht gesetzten 
Bits speichern. Wie dies im 
Einzelnen geschieht, wol- 
len wir jetzt untersuchen. 
Dazu schalten wir die 
hochauflösende Grafik 
mit Text ein durch: 


GRAPHIC 2,1 

Außerdem ist die Anfangs- 
adresse $2000 des Grafik- 
bildschirmes in die dezi- 
male Darstellung umzu- 
rechnen. 


?DEC(‘‘2000“) 


Die dezimale Adresse lau- 
tet 8192. Ein kleiner Ver- 
such könnte vielleicht et- 
was zeigen. 


POKE 8192,255 


Es erscheint ein kleiner 
waagrechter Strich in der 
linken oberen Ecke des 
Bildschirms. Die Zahl 255 
wird in einem Byte durch 


acht gesetzte Bits realisiert. 


Acht nebeneinanderliegen- 
de schwarze Pünktchen, 
die im Computerjargon 
Pixel heißen, sind zu se- 
hen. Ein gesetztes Bit be- 
deutet also ein gesetztes 
Pixel. Noch ist nicht klar, 
welches Bit welchem 

Pixel entspricht. 


1A rem listing 1======(hardcopies) <nf> 
28 rem by alfons mittelmeyer <if> 
30 TEN Fr HEFERRFSFERFFBEE, ADD 
48 graphici,1:clr <ap> 
58 ax=decl "2088") <fk> 
60 Fori=axtoax+7999 <cr> 
78 pokei,255 <mc> 
:88 char,8,24,hex$(i)+str$(i) <aa> 
9a getkeyx$ <gd> 
188 next <ek> 
118 graphicclr <bb> 
120 nen Fr ar SE 
138rem programmende <jf> 
140 Ten ===33-3ss53575 5 83 
18 rem listing ?======( hardcopies) <fc> 
28 rem demoprogramm <ao> 
38 rem dieses programm liest ein <ha> 
48 rem buchstabenmuster, konver- <np> 
58 rem tiert es, und gibt es dabei <dk> 
68 rem auf den bildschirm aus. <dg> 
En se a <an> 
88 rem matrix aus zeichensatzrom <ae> 
98 rem -=---- == 22222 <ct> 
108 ax=-53256:rem buchstabe a <gd> 
118 poke1177,62:rem peek aus rom <fe> 
128 fori=8t07 <hp> 
138 ali)-peeklax+i) <ik> 
148 next <jl> 
158 poke1177,63:rem peek aus ram <hi> 
168 gasub2A8d:gota16A <ed> 
170 rem ----------- <ef> 
188 rem matrix-konvertierung <kc> 
194 ram Sasse en <ca> 
eB8 for j=-Bto? <ld> 
218 a=B <co> 
228 fori=?7toßstep-1 <ci> 
236 ali)=-2*ali) <dk> 
2AQD a-ata <en> 
258 ifa(i)>255thena=a+t1:ali)=ali)- 
256:print"8";:elseprint"”."; <bk> 
268 nexti:print <jg> 
278 b( j)=a <ch> 
:288 nextj <1d> 
298 fori=8t07 <fk> 
3080 ali)=bl(i) <ha> 
318 nexti:return <kl> 
328 rem ===========-=============  <j]> 
336 rm programmende <al> 
30 Tem FFerreBsner re 
POKE 8192,1 sein, ob die nächste Spei- 


POKE 8192,128 


Das linke Pixel wird durch 
das höchstwertige Bit ver- 
treten, das rechte Pixel 
durch das niederstwertige 
Bit. Wir können gespannt 
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cheradresse die rechts 
oder unten anschließen- 
den Pixel wiedergibt. 


POKE 8192,128 
POKE 8193,64 
POKE 8194,32 


lis 
har 


assemblerlisting 

. 8138 28 4e Bi jsr $B14e 

. B13b aß 88 idy #$88 

. 813d a2 88 ldx #$88 

. Bgıi3f 16 d2 asl $d2,x 

. 8141 2a rol 

. 8142 ca dex 

. 8143 da fa bne $H13f 

. Bl45 ea nop 

. 8146 ea nop 

. 8147 28 d2 ff jsr $ffd2 

. Bi4a 88 dey 

. Bi4b da fo bne $B13d 

. B14d 68 rts 

. Bilde a8 88 idy #$08 

. 8158 85 d2 sta $d2 

. 8152 a2 08 ldx #$08 

. 8154 b1 d@ ida ($d®) ,‚y 

. 08156 95 d2 sta $d2,x 

. 8158 85 d2 ora $d2 

. 815a 85 d2 sta $d2 

. B15c e6 d® inc $d® 

. BiSe da 82 bne $B162 

. Bi6B e6 di inc $d1 

. 8162 ca dex 

. 8163 dB ef bne $8154 

. Bi65 68 rts 

1 rem listing 4======(hardcopies) <gk> 
28 rem by alfons mittelmeyer <if> 
30 rem raus sanesninnennannnnnnnne ong> 
48 rem maschinensprachteil <gn> 
58 rem fuer hires- <ol> 
68 rem hardcopyprogramme <kg> 
78 rem ==========2===2=2=========== 0p0> 
88 fori=312t0357 <ig> 
98 reada:pokei,a:next <ck> 
108 data 832,078,881, 160,008, 162 <mm> 
1198 data 808,922,210,042,202,288 <gd> 
128 data 250,234,234,832,218,255 <ab> 
139 data 135,288,248,896, 160,088 <ej? 
148 data 133,218, 162,098, 177,288 <dg> 
158 data 149,218,895,218,133,218 <im> 
168 data 238,288,288,2802,238,2809 <jg> 
172 data 282,285,239,896 <dg> 
188 rem Fran Sch 
198 rem basicteil ist anzufuegen <oi> 
eiV rem em Ende Ser 
POKE 8195,16 Die Reihenfolge vom 
POKE 8196,8 höchstwertigen Bit zum 
POKE 8197,4 niederstwertigen ent- 
POKE 8198,2 spricht der Reihenfolge 
POKE 8199,1 der Pixel von links nach 


ting 3============( hardcopies) 
dceopy-maschinenteil 


rechts. Mit aufsteigenden 
Speicheradressen dagegen 
scheint es am Bildschirm 
abwärts zu gehen. Jedoch 
werden wir gleich eines 
Besseren belehrt. 


POKE 8200,255 


Wir haben damit die ober- 
ste Reihe der nächsten 
Spalte angesprochen. Da 
es wohl etwas mühsam ist, 
sich den ganzen Grafik- 
bereich mit POKEs per 
Hand zu erschließen, soll 
ein kurzes BASIC-Listing 
namens HIRES uns die 
Arbeit abnehmen. Sie fin- 
den es als Listing Nr. 1 

im Anhang zu diesem 
Artikel. 


ACHT BYTES PRO 
ZEICHEN — 
40 ZEICHEN PRO ZEILE 


HIRES beschreibt 8.000 
Adressen ab $2000 

(8192 dezimal) mit dem 
Wert 255. Nach dem Pro- 
grammstart ist in der lin- 
ken oberen Bildschirm- 
ecke wieder der kurze 
Strich zu sehen, den wir 
schon von unseren 
POKE-Versuchen her 
kennen. Links unten am 
Bildschirm wird die je- 
weils beschriebene Spei- 
cheradresse in hexadezi- 
maler und dezimaler Form 
dargestellt. Sobald irgend- 
eine Taste gedrückt wird, 
ist die nächste Speicher- 
adresse an der Reihe. 
Etwas Geduld ist vonnö- 
ten, soll die Organisation 
des Bildschirmaufbaus ab- 
gelesen werden. Nach acht- 
maligem Tastendruck be- 
findet sich die kurze Linie 
in der zweiten Spalte. 

Wie weiteres Drücken 
zeigt, geht der Aufbau 
zeilenweise vonstatten. 
Acht Linien, die jeweils 
acht Pixel breit sind, fül- 
len von oben nach unten 
den Raum, den im Text- 
modus ein einzelnes Zei- 
chen auf dem Bildschirm 
benötigen würde. 

Solche „Zeichen“ werden 
zeilenweise aufgebaut, 
mit jeweils 40 „Zeichen“ 
pro Zeile. Der Bildschirm 
hat, wie im Textmodus, 
auch jetzt 25 Zeilen, 40 
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mal acht Pixel ergeben 
320 Bildpunkte in der 
Breite, 25 mal acht Pixel 
sind 200 Bildpunkte in 
der Länge. Wir wissen 
jetzt, wie die Bildpunkte 
der hochauflösenden Gra- 
fik untergebracht sind 
und können uns Gedanken 
über das Ausdrucken ma- 
chen. 


VORÜBERLEGUNGEN 
ZUM DRUCKEN 


Statt eines einzelnen Byte 
für ein Zeichen haben wir 
im Grafimodus gleich acht 
Bytes vor uns. Im Text- 
modus hatten wir einen 
Code, der dem Drucker 
sagte, welches Zeichen- 
muster er aus seiner Bi- 
bliothek auswählen solle. 
Jetzt haben wir das Zei- 
chenmuster selbst vorlie- 
gen. 

Leider ist es anders orga- 
nisiert, als es der Drucker 
verarbeiten kann. Auf 
dem Bildschirm bestimmt 
ein Byte acht nebenein- 
ander liegende Pixel. 
Beim Drucker jedoch le- 
gen die Nadeln nicht ne- 
ben-, sondern unterein- 
ander. Würden wir die 
Zeichenmuster so an den 
Drucker senden, wie sie 
beim Rechner angeordnet 
sind, so erschienen sie auf 
dem Papier alle um 90 
Grad gedreht. Vor dem 
Ausdruck ist folglich ei- 
ne Konvertierung der 
Zeichenmatrix vorzuneh- 
men. Listing Nr. 2 zeigt, 
wie das in BASIC reali- 
siert werden könnte. Die- 
ses Listing ist nur als Bei- 
spiel und nicht zum Ab- 
tippen gedacht. 


MATRIX- 
KONVERTIERUNG 


AX enthalte die Anfangs- 
adresse des zu lesenden 
Zeichenmusters. Mit einer 
Schleife werden die Inhal- 
te dieser und der folgen- 
den sieben Adressen in 
die Variablen A(0) bis 
A(7) eingelesen. In einer 
weiteren Schleife mit 

J=0 bis J=7 soll das Zei- 
chenmuster spaltenweise 
an den Drucker gesendet 
werden. Das an den Druk- 


ETIPS & TRICKS Me u un En 


ker zu sendende Byte soll 
in Form der Variablen A 
bereitgestellt werden. 
Hierzu ist aus den Varia- 
blen A(0) bis A(7) jeweils 
das höchstwertige Bit zu 
entnehmen. Wir setzen 
die Variable A auf den 
Wert Null und sprechen 
durch eine weitere Schlei- 
fe mit dem Index I=0 

bis I=7 die indizierten Va- 
riablen A(0) bis A(7) an. 
Das höchstwertige Bit ist 
in die Variable A zu schie- 
ben. Hierzu schieben wir 
die Bits in den indizierten 
Variablen um eine Stelle 
nach links mit A(T)=2*+A 
(T). Damit liegen die fol- 
genden Bits für den näch- 
sten Durchgang bereit. 
Das frühere Bit sechs ist 
somit jetzt zu Bit sieben 
geworden und kann im 
nächsten Durchgang mit 
erhöhtem J herausge- 
schoben werden. 

Das erhaltene Bit ist jetzt 
in die Variable A hinein- 
zuschieben. Da BASIC 
keine Schiebebefehle 
kennt, verschieben wir 
den Inhalt von A um eine 
Stelle nach links mit 
A=AH+A. Hierzu ist jetzt 
das aus A(I) herausge- 
schobene Bit zu addieren. 
Wir realisieren dies 

durch die IF-Abfrage: 


IFA(I)>255THENA=A 
+1:A(D)=A(I)—256 


Der Übertrag von 256, 
der sich bei gesetztem 
höchstwertigen Bit ergab, 
mußte natürlich wieder 
abgezogen werden, so daß 
für die weitere Bearbei- 
tung nur mehr die restli- 
chen sieben Bits zur Ver- 
fügung stehen. Nach der 
Abarbeitung der inneren 
Schleife steht in A das an 
den Drucker zu sendende 
Byte bereit. Das höchst- 
wertige Bit aus A(0) ist 
zum höchstwertigen Bit 
in A geworden, das 
höchstwertige Bit aus A 
(7) zum niederstwertigen 
BitinA. 


Viele Drucker sprechen 
mit dem höchstwertigen 
Bit die oberste Nadel an, 
manche aber mit dem un- 
tersten Bit. Für den letz- 
teren Fall müßte die inne- 


re Schleife umgekehrt ab- 
laufen, oder die Bits müß- 
ten in umgekehrter Rich- 
tung in die Variable A ge- 
schoben werden. Das er- 
stere wäre zu verwirkli- 
chen durch die Schleife: 


FOR 1=7 TO 0 STEP-1 


Das Schieben nach rechts 
geschähe durch: 


AsAl2 
IFA(I)>256THENA=A 
+128:A(D)=A(I)—256 


Wenn wir davon ausgehen, 
daß vorher im Hauptpro- 
gramm der Druckerkanal 
durch den CMD-Befehl ge- 
öffnet worden ist, kön- 
nen wir mit PRINT 
CHR$(A) unser Byte auf 
den Drucker ausgeben. 
Nach acht Durchläufen 
sind alle acht Bytes ausge- 
geben und es kann der 
Rücksprung in das auf- 
rufende Hauptprogramm 
mit RETURN erfolgen. 


PROGRAMMIEREN IN 
MASCHINENSPRACHE 


64 Schiebeoperationen 
braucht es, bevor ein gan- 
zes Zeichen an den Druk- 
ker ausgegeben ist. In 
BASIC nimmt das eine 
Menge Zeit in Anspruch. 
Quälende Langsamkeit 
bei der Hardcopy wäre 
die Folge. Es ist daher zu 
überlegen, ob Listing 

Nr. 2 nicht besser durch 
ein Maschinenprogramm 
zu ersetzen wäre. Mit den 
Kenntnissen aus dem Ein- 
führungskurs im C16/P4- 
SPECIALNT. 3 ausge- 
stattet, können wir uns 
getrost daranwagen. 
Damit das Maschinenpro- 
gramm nicht mit even- 
tuellen Centronics-Routi- 
nen kollidiert, die der ei- 
ne oder andere benötigt, 
um über Centronics-Ka- 
bel an nicht COMMO- 
DORE-kompatible Druk- 
ker zu gehen, verlegen wir 
die Maschinenroutine in 
den Stack-Bereich des 
Prozessors. 

Ein Zeiger, mit dem die 
Adressen des Grafikbe- 
reichs indirekt ansprech- 
bar sind, wird benötigt. 


218 rem listing 5====={hardcopies) <oe> 
228 rem by alfons mittelmeyer <bi> 
2308 rem ======== === === === === jc> 
248 rem hires-hardcopy fuer <fe> 
2580 rem grafikfaehige commodore- <ah> 
268 rem drucker. <ci> 
278 rem nur in verbindung mit <ia> 
288 rem listing 4 <ap> 
298 rem ========================== chbk> 
388 poke298,8:poke289,32 <hb> 
318 poke325,9:poke326,128:rem ora 

#$88 <ie> 
328 pake321,1806:rem ror <dn> 
330 open4,4:cmd4 <ig> 
348 printchr$(B); <ie> 
358 forj=1t025 <of> 
368 print <gl> 
378 fFori=1t0o48:sys312:next:nextj <bo> 
388 printf#4,chr$( 15) :close4 <gl> 
398 rem =========================  (ag> 
480 rem programmende <hd> 
A1IQB rem ======================== 0 <gk> 
218 rem listing 6=====(hardcopies) <cc> 
228 rem by alfons mittelmeyer <bi> 
230 rem ==>>--==== 220 (joa 
248 rem fuer epson-kompatible <jm> 
250 rem drucker <ag> 
268 rem <jj? 
278 rem nur in verbindung mit <ia> 
288 rem listing 4 <ap> 
298 rem ========================== chk> 
388 poke288,8:poke289,32 <hb> 
318 e$=chr$( 27) :x$=chr$( 13) +chr$( 1 

6) <In> 
328 open4,4:cmd4 <hh> 
338 printe$"a"chr$(8); <pm> 
340 for j=1to25 <om> 
358 printx$e$"k"chr$(64)chr$( 1); <kb> 
362 fori=1to4d:sys312:next:nextj <dce> 
378 print#4,e$"2"x$; :close4 <mi> 
380 rem ========================== cda> 
338 rem programmende <ko> 
4B0 rem ===============--2=-2=2===== (joy 


Dafür kommen nur die 
Adressen der Zero-Page 
in Frage. Die C16/116/ 
P4-Rechner stellen die 
Adressen $DO bis $E8 
dem Benutzer zur freien 
Verfügung. $DO und SD1 
verwenden wir als Adreß- 
zeiger. . 

Unter Umständen könn- 
te es nützlich sein, ein 
Flag bereitzustellen, das 
dem BASIC-Programm 
meldet, ob ein Zeichen 
nicht gedruckt zu werden 
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braucht, weil alle acht 
Bytes vielleicht nur den 
Wert Null aufweisen. Für 
dieses Flag wählen wir die 
Adresse $D2. Die Adres- 
sen $D3 bis SDA wollen 
wir für das zu lesende 
Zeichenmuster benützen. 
Das Programmieren kann 
beginnen. 


LDY #$00 
STY $D2 


Das Flag wird auf den 
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218 rem listing 7=====(hardcopies) <ca> 
228 rem by alfons mittelmeyer <b1> 
230 rem ===> 222202200 Cjc> 
248 rem fuer ibm-kompatible <dk> 
258 rem drucker <agp> 
268 rem <jj? 
270 rem nur in verbindung mit <ia> 
288 rem listing 4A <ap> 
298 rem =================2=====5==== chk> 
388 poke288,98:puke289,32 <hb> 
318 e$=chr$( 27) :x$=chr$( 13) +chr$f 1 

6) <In> 
328 open4,4:cmd4:printe$":"; <lo> 
338 printe$"a"chr$(8)e$"2" <ja> 
348 forj=1t025 <om> 
358 printx$e$"kK"chr$( 64) chr$( 1); <kb> 
368 fori=1t048:sys312:next:nextj <dc> 
378 print#4,e$"a"chr$( 12); <lp> 
388 print#4,e$"”2"x$:close4 <me> 
398 rem ============- == 32220222222 coj> 
4028 rem programmende <hd> 
A1O rem =======-=====-== === 2===== chb> 
2i@ rem listing B=====(hardcopies) <cg> 
2280 rem by alfons mittelmeyer <bi> 
230 rem ==========2=======200===2=== (jo) 
248 rem universal-hardcopy <be> 
258 rem fuer alle drucker mit <ci> 
268 rem definierbarem geschaefts- <ao> 
270 rem zeichen. nur in verbindung <kf> 
288 rem mit listing 4 <id> 
298 rem =======================022= chk> 
308 poke298,8:poke209, 32 <hb> 
31@ x$=chr$( 13) :e$=chr$( 8) :F$=chr$ 

(15) <pe> 
328 open5,4,5:open4,4 <md> 
338 for j=1t025 <n1> 
348 print#4,e$x$f$; <od> 
350 fori=1t048:sys334:ifpeek( 218) = 
Othen398 <bh> 
368 print#4,chr$( 141) ; :poke2835,5: 
sys65481 <kd> 
378 sys315:print#5:i$=str$(i-1) <bm> 
388 print#4,chr$( 16) right$( "@"+rig 
ht$(i$,1en(i$)-1) ,2)chr$( 254) ; <In> 
398 next:nextj <mc> 
488 close4:closeS <dl> 
Ali rem =======================2==2= chb> 
420 rem programmende <dj> 
A430 rem ========================== cjm> 


Wert Null gesetzt. Gleich- 
zeitig soll das Y-Register 
zur indirekten Adressie- 
rung dienen und dabei 
den Wert Null aufweisen, 
da dabei keine Indizie- 
rung vonnöten ist. 


LDX #$08 


Das X-Register ist sowohl 
Zähler für unsere Lese- 
schleife als auch Index 
zum Ablegen der gelese- 
nen Bytes in die dafür re- 
servierten Adressen $D3 
bis $DA. 


LDA ($D0),Y 


STA $D2,X 


Das durch unseren Zeiger 
in $DO und $D1 adressier- 
te Byte aus dem Grafik- 
bereich wird in den Akku 
geladen und in eine durch 
das Register X indizierte 
Adresse von $DA bis 

$D3 geschrieben. Warum 
wir nicht mit $D3, son- 
dern $DA beginnen, wird 
noch erklärt. 


ORA$D2 
STA $D2 


Alle gelesenen Bytes wer- 
den geodert und das Re- 
sultat in $D2 abgelegt. 
Enthält $D2 am Ende 
immer noch den Wert 
Null, so bedeutet dies, 
daß jedes gelesene Byte 
ein Null-Byte war. 


INC $DO 
BNE 80162 
INC $D1 


Der Adreßzeiger wird um 
Eins erhöht. Wenn beim 
Erhöhen das Low-Byte 
den Wert Null annimmt, 
muß auch das High-Byte 
erhöht werden. Im ande- 
ren Fall wird der Befehl 
zum Erhöhen des High- 
Bytes übersprungen. 


DEX 
BNE $0154 


. Der Zähler und Index X 


wird um Eins verringert. 
Ist X anschließend noch 
nicht Null, erfolgt der 
Sprung zum Laden des 
nächsten Bytes mit LDA 
($DO),Y. Wenn durch 
DEX das X-Register Null 
wird, so wird das Zero- 
Flag gesetzt, auf’das der 
BNE-Befehl reagiert. 
Hätten wir X dagegen in 
umgekehrter Richtung 
von eins nach acht lau- 
fen lassen, wäre das nicht 
der Fall gewesen. Nach 
INX hätte erst ein zusätz- 
licher Befehl CPX #$09 
eingeschoben werden 
müssen, den wir uns so 
erspart haben. 


Statt X am Anfang mit 
LDX #$08 zu initialisie- 
ren, hätten wir genauso- 
gut LDX #$07 verwen- 
den können. Das Spei- 
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chern wäre dann eben 
mit STA $D3,X vonstat- 
ten gegangen und die 
Schleifenendabfrage nach 
DEX mit BPL. 


RTS 


GESONDERTE 
LESEROUTINE 


Die Routine zum Lesen 
der Bytes aus dem Grafik- 
bereich wurde als Unter- 
programm angelest, da- 
mit sie gegebenenfalls von 
BASIC aus gesondert an- 
gesprungen werden kann, 
um zu sehen, ob etwas 
auf den Drucker ausge- 
geben werden müßte. 

Wir kommen jetzt zur ge- 
samten Routine, mit Ma- 
trixkonvertierung und 
Druckerausgabe. 


JSR $014E 


Am Anfang steht der 
Aufruf der Unterroutine 
zum Lesen der acht 
Bytes aus dem Grafikbe- 
reich. 


LDY #808 
LDX#$08 


An Stelle der Schleifen- 
variablen J und K neh- 
men wir in Maschinen- 
sprache die Register X 
und Y. 


ASL $D2,X 
ROL 


Mit dem ASL-Befehl wird 
das höchstwertige Bit 

aus der durch X indizier- 
ten Zeile herausgescho- 
ben. Genausogut hätte 
das auch ein ROL-Befehl 
getan. Der folgende ROL- 
Befehl schiebt dieses Bit 
von rechts nach links in 
den Akku. Bei Druckern, 
die ihr Byte andersher- 
um brauchen, muß ledig- 
lich ROL gegen ROR aus- 
getauscht werden. 


DEX 
BNE $013F 


Solange X noch nicht 
Null ist, wird auf den Be- 
fehl ASL $D2,X zurück- 
gesprungen. Erst wenn 
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alle acht höchstwertigen nenteil und der noch zu 18 rem listing 9======(hardcopies) <nb> 
Bits erfaßt sind, wird die  erstellende BASIC-Teil 28 rem by alfons mittelmeyer <if> 
Schleife verlassen. velrentit geladen Werden —O ee ee russ 
müssen, empfiehlt sich nl ie: > raue eng? 
NOP die Wandlung in DATA- AB rem fuer druckdichte- von <eo> 
Nor Ein en a 58 rem 248 dots/zoll. <he> 
. Wir : : . 
Diese zwei NOP-Befehle dies bereitsin Porm yon 68 rem maschinensprachteil <pj? 
vieren nur Platz. ledigt. 88 Fori=312t0366 <ih> 
Commodore-Drucker brau- _— 98 reada:pokei,a:next <dk> 
chen die Bits in umgekehr- HARDCOPYROUTINE 188 data 932,078,001,160,0088,162 <mm> 
ter Reihenfolge, was ja —— 118 data 908,022,210,042,202,288 <gd> 
ee, ar Bee dr an 120 data 250,234,234,032,102,001 <kd> 
fik nicht mit acht, son- COMMODORE-Drucker 138 data 136, 208,249,096, 168,008 <ej> 
dern nur mit sieben Na- oder weitgehendst Kom- 148 data 133, 218 y 162 ’ 088 ? 177 , 288 <dg> 
deln. Bit sieben, das patiblen ihr eigen nennen 150 data 149,2180,005,210,133,210 <im> 
höchstwertige Bit, ist hier- werden, soll als erstes die 168 data 230,208,208,002,230,209 <jeg> 
bei auf Eins zu setzen. Hardcopy mit einem gra- 170 data 202,208,239,096,032,218 <im> 
Damit die Operation ORA fikfähigen Commodore- j 
#$80 in dieses Programm Drucker besprochen wer- 188 data 255,032,2190,255,876,210 <ae> 
eingebaut werden kann, den. Hierfür ist das Ma- 198 data 255 <gi> 
wurde der hierzu benötig- schinenprogramm in eini- 208 rem ========================== cne> 
te Platz mit Hilfe der bei-_ gen wenigen Punkten zu 210 rem basic-teil ist anzufuegen <ac> 
den NOP-Befehle ge- modifizieren, was mit 228 Tem =7=----S=2=2=SS2m=m2sesmeseene <hm> 
schaffen. POKE-Befehlen bewerk- 


stelligt werden kann. 
JSR FFD2 

POKE 321,106 
Nachdem das Byte im 
Akku bereitsteht, kann es Damit wird der ROL-Be- 


an den Drucker ausgege- fehl an Speicherstelle 18 rem centronie============-=plus4 <bb> 
ben werden. Die Betriebs-- $0141 durch den Code 28 rem (p) commodore welt team <ho> 
systemroutine BSOUT, für den ROR-Befehl über- 38 Tem ======== 82522228252 52e=222 25222 <ng> 
die durch JSR $FFD2 an- schrieben. Der Commo- 48 rem (c) by alfons mittelmeyer <cg> 
gesprochen wird, gibt den dore-Drucker steuert im 58 rem <pd> 
Akkuinhalt auf das ge- Grafikbetrieb nur sieben 62 rem besonders geeignet fuer <bd> 


wählte Ausgabegerät aus. Nadeln an. Mit unserer 


einfachen Hardcopy wer- 78 rem grafikprogramme, da keine <bd> 


DEY den wir wohl oder übel 88 rem codewandlung stattfindet <ni> 
BNE $013D auf die achte Linie jedes 9B ya ee 207 
RTS ZEIG Veräichiien Did 189 fori=1015 to 1968 <dg> 
en. em Dr e- R Ka 
Acht Bytes insgesamt darf es eines aufwendige- en ya en 
sind auszugeben. Die Kon- reren Programmes, das 128 data 72,165, 153,281,3,208,43 <pp?> 
trolle darüber obliegt dem bei der nächsten zu druk- 138 data 165, 173,201,116,288,37 <fh> 
Y-Register. Ist diesesnach kenden Zeile das oder die 148 data 104,76,19,4,72,32,247,3 <in> 
dem Erniedrigen noch übrig gebliebenen Bytes 158 data 194,96,19,32,19,4,104,141 <pb> 
ir: GET VOrHETgeHenden Bild 168 data 16,253,169,9,141,2,253  <gh> 
Sprung wieder auf LDX schirmzeile mit über- en eig er. & 
#$08 zum Ausgeben des nimmt. Dafür gibt es be- 178 data 169,8,141,2,253,169,32,44 <pp> 
nächsten Bytes. Anson- reits HIRES-HARD- . 188 data 1,253,248,251,24,96, 184 <ne> 
sten hat das Maschinen- COPY aus dem C16/P4- 198 data 76,75,236,166,174,224,4 <in> 
programm ein vollständi- SPECIAL Nr. 1. Wir dür- 200 data 208,8, 162,3,134, 174,162 <on> 
ges Zeichen an den Druk- . fen beim Commodore- 218 data 116,134,173,76,166,6,166 <nk> 
ker gesandt und damit Drucker nicht vergessen, -_. 49 VAR TOR N, n 
seinen Dienst beendet. Bit sieben des an den 228 data 173,224,116,2808,4,162,8 <fc> 
Der Rücksprung in das Drucker auszugebenden 230 data 134,173,32,12,239,162,8 <gl> 
aufrufende Programm, das Codes zu setzen. 240 data 134,173,96,32,83,239,76 <oj> 
en Fall ein B 250 data 161,6,32,93,238,76,161,6 <pk> 
a um sein wird, PoKE 325,9:POKE 326, 260 Fori=1667 to 1713 <mc> 
; 128 279 reada:pokei,a:next <jj? 
Listing Nr. 3 gibt das so- 288 poke792,131:poke793,6 <gh> 
eben besprochene Ma- Der Operationscode für 299 pok Ban. 148: poke8B1 u 6 ae 
schinenprogramm wieder. ORA #$ entspricht dem BOSADEN; ‚pokeößl, 
Darin lassen sich auch die Zahlenwert 9. Mit diesem 300 poke804,008:poke895,4 <da> 
Sprungadressen verfolgen. Wert ist der NOP-Befehl 3190 poke794,172:poke795,6 <lo> 
Damit nicht der Maschi- an Adresse $0145 zu 328 rem =========g=n=d>g========== ccf> 
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18 rem centronics==============0.16 <hl> 
28 rem (p) commodore welt team <ho> 
JU ram =============2====>========= cng> 
48 rem (c) by alfons mittelmeyer <cg> 
5@ rem nur in verbindung mit dem <hj> 
68 rem centronics-interface aus <oa> 
78 rem c16-p4-spezial nr.1. <pf> 
88 rem besonders geeignet fuer <bk> 
9A rem grafik-programme <ak> 
188 rem =====================2==== <jd> 
118 fori=1926t01967 <pf> 
128 reada:pokei,a:next <ag> 
138 data 972,133,245, 165,881, 162 <dd> 
148 data 008,009,90803,086, 245,144 <kp> 
150 data 082,941,253,133,001,841 <hi> 
1608 data 254,133,001,282,288,239 <np> 
178 data 089,004,133,001,041,249 <ml> 
180 data 133,091,036,081,088,252 <np> 
198 data 924,174,091,084, 184,096 <el> 
208 fori=1659t01729 <bh> 
218 reada:pokei,a:next <ap> 
228 data 972,165, 153,281,003, 288 <gh> 
238 data 969, 165, 173,281,116,288 <bd> 
248 data 854, 184,142,8001,004,9076 <al> 
258 data 992,004, 166, 174,224,9094 <oo> 
268 data 208,988, 162,803, 134,174 <ıl> 
278 data 162,116,134,173,9076, 178 <ig> 
288 data 896,166, 173,224,116,288 <of> 
298 data 894,162,088, 134, 173,832 <gl> 
308 data 812,239, 162,808, 134,173 <1j> 
31 data 096,032,883,239,976, 173 <af> 
328 data 906,032,093,238,876, 173 <nl> 
338 data 806, 104,076,075,236 <go> 
348 fori=818t0858 <ai> 
358 reada:pokei,a:next <di> 
368 data 169,169, 141,032,8803, 169 <ni> 
378 data 096, 141,8033,883, 169,143 <dd> 
388 data 141,024,003,169,086, 141 <ef> 
390 data 925,093, 169,184, 141,026 <ld> 
A408 data 983, 169,896, 141,027,083 <ag> 
a1a data 169, 123,141,836,003,169 <aa> 
428 data 886, 141,037,083,096 <jn> 
ABA sys8lßd:new <lc> 
440 rem ==============22=========== ckf> 
458 rem programmende <pc> 
A6D rem ========================== cjk> 


überschreiben. Das Byte 
im Akku ist mit dem 
Wert $80 zu odern, da- 
mit Bit sieben gesetzt 
wird. Erreicht wird dies 
durch POKEn des Wer- 
tes 128, der die dezima- 
le Entsprechung zu $80 
ist, in die nachfolgende 
Speicherzelle $0146 
(dezimal 326). Das Ma- 
schinenprogramm ist jetzt 


an den Commodore-Druk- 
ker angepaßt. 


INITIALISIERUNG 


DES ZEIGERS 


Das Maschinenprogramm 


verwendet den Inhalt der 
Adressen $DO und $D1 
als Zeiger zum Lesen des 
jeweils nächsten Zei- 
chens. Vor dem Start 


der Hardcopy ist der Zei- 
ger auf den Anfang des 
Grafikbereiches $2000 
einzustellen. 


POKE 208,0:POKE 209, 
32 


Dezimal ergibt $DO den 
Wert 208. Der in die fol- 
gende Speicherstelle zu 
POKEnde Wert $20 er- 
gibt dezimal 32. 


ÖFFNEN DES 
DRUCKERKANALS 


Der Drucker muß mit 
dem OPEN-Befehl als Da- 
tei angemeldet sein. Da- 
mit er als Ausgabegerät 
auch für die BSOUT-Rou- 
tine des Maschinenpro- 
gramms bereitsteht, ist 
der Druckerkanal mit 
dem CMD-Befehl zu 
öffnen. 


OPEN 4,4:CMD4, 
CHR$(8); 


Folgt auf den CMD-Be- 
fehl ein Komma, so wird 
der Rest danach genau 
wie bei einem PRINT-Be- 
fehl ausgegeben. Mit 
CHR$(8) stellen wir den 
Drucker auf Grafik um. 
Codes, die größer oder 
gleich 128 sind, Bytes 
mit gesetztem siebten 

Bit also, steuern jetzt di- 
rekt die obersten sieben 
Nadeln an. 

Gleichzeitig erfolgt der 
Zeilenvorschub in kürze- 
ren Abständen, so daß die 
nächste Druckzeile ohne 
Zwischenraum an die 
vorhergehende anschließt. 


AUSGABE 
AN DEN DRUCKER 


Die Ausgabe gestaltet sich 


recht einfach. Es sind 25 
Zeilen zu jeweils 40 Zei- 
chen an den Drucker zu 
senden. 


FORJ=1T025:PRINT 
FORI=1T040:SYS312: 
NEXT:NEXT] 


Vor jeder Zeile bewirken 
wir mit PRINT einen Zei- 
lenvorschub. Mit SYS 
312 wird das Maschinen- 
programm an Adresse 
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$0138 (dezimal 312) auf- 
gerufen, das genau ein 
Zeichen ausgibt. 


PRINT#4,CHR$(15) 
:CLOSE4 


Mit PRINT#4,CHR$(15) 
schalten wir den Drucker 
wieder auf Text um, ge- 
ben einen zusätzlichen 
Wagenrücklauf und Zei- 
lenvorschub aus, da kein 
Strichpunkt folgt, und 
schließen den Druckerka- 
nal. Die CLOSE-Anwei- 
sung beseitigt den Eintrag 
des logischen Files. 
Listing Nr. 5 enthält den 
BASIC-Teil der Hardco- 
py für grafikfähige Com- 
modore-Drucker. Er ist 
an den in DATA-Zeilen 
gewandelten Maschinen- 
teil anzubinden. 


IBM- und Epson-Drucker 
können mit acht Nadeln 
drucken. Es braucht da- 
her keine Linie unterschla- 
gen zu werden. Da für 
den Acht-Nadel-Drucker 
jedes Bit des zu senden- 
den Bytes zur Nadelan- 
steuerung dient, ergibt 
sich die Frage, wie wie- 
der in den Normalmodus 
umgeschaltet werden 
kann. Durch einen Steu- 
ercode wohl kaum, 
denn jeder Code wird als 
Bitmuster verstanden. 

So wird hier ein etwas 
anderer Weg eingeschla- 
gen. Den Steuercodes 
zum Umschalten auf Gra- 
fik folgen zwei Bytes, die 
angeben, wieviel Daten- 
Bytes darauf im Grafikmo- 
dus ausgegeben werden 
sollen. Nach Ausgabe die- 
ser Anzahl kann der 
Drucker wieder ASCII- 
Codes und Steuercodes 
interpretieren. Mehr Fle- 
xibilität erlauben IBM 
und Epson, da der Zei- 
lenabstand frei wählbar 
ist. 


a 208,0:POKE 209, 


BE-CHRS(27 :X$= 
CHR$(13)+CHR$(10) 


Der Adreßzeiger muß 
wieder auf den Grafikan- 
fang gesetzt werden. Das 
Programm wird kürzer 
und übersichtlicher, 


BTIPS& TRICKS ee Em ram en 


wenn mehrfach auftreten- 
de Steuercodes als String- 
variablen definiert wer- 
den. Ist der automatische 
Zeilenvorschub bei Wa- 
genrücklauf eingestellt, 

so darf X$ nicht zusätz- 
lich den Steuercode für 
Linefeed enthalten. 
X$=CHR$(13) darf es in 
diesem Fall nur heißen. 


OPEN4,4:CMD4,E$“A“ 
CHR$(8); 


Mit Escape und A wird 
der Zeilenabstand ge- 
wählt. Das folgende Byte 
n gibt diesen in n/72 Zoll 
wieder. Für n können Wer- 
te von Null bis 85 ge- 
wählt werden. Da der Ab- 
stand der Nadeln vonein- 
ander 1/72 Zoll beträgt 
und mit acht Nadeln ge- 
druckt wird, wählten wir 
den dafür richtigen Zei- 
lenabstand 8/72 Zoll. 


PRINTE$‘“2“; 


Dieser Steuercode ist nur 
für den IBM-Drucker er- 
forderlich. Der vorher an- 
gewählte Zeilenabstand 
wird erst durch diesen 
Befehl aktiviert, beim 
Epson-Drucker hingegen 
sofort. 

ESC und “2‘“ würden den 
Zeilenabstand beim Ep- 
son-Drucker auf 1/6 Zoll 
stellen, was wir hier 
nicht brauchen können. 


FORJ=1T025 
PRINTX$E$“K“CHR$ 
(64) CHR$(1); 


Mit X$ wird der Zeilen- 
vorschub realisiert. Da- 
nach ist dem Drucker zu 
melden, daß er in Grafik 
mit einer bestimmten 
Dichte drucken soll. Vier 
verschiedene Dichten 
stehen für den IBM- 
Drucker zur Auwahl. Der 
Epson-Drucker kennt dar- 
über hinaus noch fünf 
weitere. Die Druckpunk- 
te, die der Drucker zu 
Papier bringt, heißen 
nicht Pixel wie beim Bild- 
schirm, sondern Dots. 
Nachstehend finden Sie 
die Anwahl der vier Dich- 
ten, die sowohl IBM- als 
auch Epson-Drucker 
kennen. 


ESCK = 60 Dots/Zoll 
ESCL = 120 Dots/Zoll 
ESC Y = 120 Dots/Zoll 
ESC Z = 240 Dots/Zoll 


Mit ESC Y erfolgt der 
Ausdruck in doppelter Ge- 
schwindigkeit als mit 
ESCK. Der Nachteil hier- 
bei ist, daß direkt neben- 
einander liegende Druck- 
punkte unterschlagen 
werden. Von zwei sol- 
chen Punkten, die 
schwarz zu Papier kom- 
men sollten, bleibt einer 
also weiß. 

Die Anzahl der horizon- 
tal zu druckenden Punk- 
te pro Zeile wird im An- 
schluß an die Dichteaus- 
wahl mit Hilfe zweier 
Bytes angegeben. Low- 
Byte 64 und High-Byte 
eins sind 64+256=320, 
was 40 Zeichen mit je 
acht Pixeln entspricht. 


FORI=1T040:SYS312 
:NEXTI:NEXTJ 
PRINTE$“A“CHR$(12); 


Das Ende des Programms 
vollzieht sich analog zur 
Hardcopy mit dem Com- 
modore-Drucker. Mit 
ESC A und der Größen- 
angabe stellen wir beim 
IBM-Drucker 12/72 

= 1/6 Zoll Zeilenabstand 
ein, was der Standard für 
Textdruck ist. Beim Ep- 
son-Drucker kann entwe- 
der dieser Befehl oder der 
folgende entfallen. 


PRINTE$‘‘2“; 


Dieser Befehl aktiviert den 
eingestellten Zeilenab- 
stand beim IBM-Drucker. 
Beim Epson-Drucker 
stellt er immer den Stan- 
dardabstand von 1/6 Zoll 
ein. 


PRINT#4,X$;:CLOSE4 


Wir schließen nach dem 
Senden von Wagenrück- 
lauf und Zeilenvorschub 
den Druckerkanal. Mit 
CLOSE wird der Eintrag 
in die File-Tabelle besei- 
tigt. 

Zusammengefaßt finden 
Sie die Programme für 
IBM- und Epson-Drucker 
als Listing Nr. 6 und 

Nr. 7 im Anhang. 


Eine Hardcopy für nicht 
grafikfähige Drucker, das 
gibt es doch nicht, wird 
manch einer sagen. Wir 
haben uns ein Verfahren 
überlegt, das sowohl auf 
nicht grafikfähigen Com- 


UNIVERSAL-HARD- 


COPY AUCH FÜR 
NICHT: GRAFIK- 
FÄHIGE DRUCKER 


modore-Druckern funk- 
tioniert als auch mit den 
vielen nur teilweise Com- 
modore-kompatiblen 
Druckern zusammenarbei- 
tet, die vielleicht den 
Textmodus von Commo- 
dore noch richtig emulie- 
ren, deren Grafik aber an- 
ders anzusteuern ist. 
Normalerweise wird es 
Epson- oder IBM-Grafik 
sein, kann aber auch an- 
dersartig angesteuert wer- 
den. 


a 208,0:POKE209, 


OPEN5,4,5:OPENA4,4: 
PRINT#4,CHR$(8); 


Die letzte Zeile bringt an 
den Tag, was wir vorha- 
ben. Mit Sekundäradres- 
se fünf läßt sich ein Zei- 
chen, das sogenannte Ge- 
schäftszeichen, vom Be- 
nutzer frei definieren. 
Mit dem Code CHR$ 
(254) kann dieses Ge- 
schäftszeichen dann un- 
ter anderer Sekundär- 
adresse zu Papier ge- 
bracht werden. Wenn ein 
nicht grafikfähiger Druk- 
ker allerdings mit CHR$ 
(8) nicht einmal einen 
kürzeren Zeilenabstand 
einstellen kann, sieht die 
Hardcopy ein wenig ge- 
stückelt aus, da weiß 
gebliebene Linien den 
Ausdruck zerteilen. 

Ein Problem gilt es noch 
zu lösen. Die Definition 
des Geschäftszeichens 
darf nur am Zeilenan- 
fang erfolgen und gilt 
dann für die ganze Zeile. 
Im Druckerhandbuch 
steht, daß verschiedene 
Geschäftszeichen nur 
durch mehrfaches Über- 
drucken derselben Zeile 
möglich seien. 
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FORJ=1T025:PRINT#4 
FORI=1T040:5YS334 
IFPEEK(210)=0THEN... 


Mit SYS334 werden die 
Daten nur gelesen, und 
es wird erfaßt, ob über- 
haupt etwas zu drucken 
wäre. Ist dies nicht der 
Fall, was mit dem PEEK- 
Befehl festzustellen ist, 
so überspringen wir die 
eigentliche Druckerrou- 
tine. Nötig wäre dieses 
Vorgehen nicht, doch er- 
sparen wir dadurch dem 
Drucker Arbeit. Grafiken, 
die mehrere Leerzeilen 
und viele leere Zeichen 
enthalten, kommen so 
schneller auf das Papier. 


PRINT#4,CHR$(141);: 
CMD5,;:SYS315 


Mit CHR$(141) erfolgt 
ein Wagenrücklauf ohne 
Zeilenvorschub. Nach- 
dem der Druckkopf sich 
am Zeilenanfang befin- 
det, kann auf Sekundär- 
adresse fünf umgeschal- 
tet und mit SYS315 das 
Zeichenmuster gesendet 
werden. Das Komma und 
der Strichpunkt bei der 
CMD-Anweisung sind 
wichtig, damit der Druk- 
ker nicht als erstes Bit- 
muster den Return-Code 
erhält. Das letzte Bitmu- 
ster würde den Drucker 
außerdem in Verwirrung 
bringen. 


PRINT#5: rn 
el 
a R$(16)A$ 


a N 1 


Mit PRINT#5 wird die 
Zeichendefinition been- 
det. Die Tabulatorfunk- 
tion CHR$(16) verwen- 
den wir, um den Druck- 
kopf auf die richtige Stel- 
le in der Zeile zu fahren. 


Die Position muß im An- . 
schluß durch eine zweistel- 
lige ASCII-Zahl angege- 
ben werden. Die Berech- 
nung erfolgt durch die 
STR$-Funktion. Ist das 
Ergebnis nur einstellig, 

so setzen wir die Ziffer 
Null davor. Die RIGHT$- 
Funktion sorgt in jedem 
Fall für die richtige Län- 


A _  _  ___ wissen 


ge. Nach der Positionsan- 
gabe A$ brauchen wir nur 
noch den Code CHR$ 
(254) zu senden, um das 
definierte Zeichen zu Pa- 
pier zu bringen. 

"Bei der Definition des 
Zeichens fährt der Druck- 
kopf nicht bis zum An- 
schlag zurück, da der 
Drucker so intelligent ist, 
zu warten, ob nicht etwa 
wieder eine gegenläufige 
Bewegung erfolgen soll. 
Dennoch ruckelt der 
Druckkopf bei den mei- 
sten Druckern ganz schön 
hin und her. Aus diesem 
Grunde hatten wir auch 
für eine teilweise Ent- 
lastung gesorgt. 


PRINT#4,CHR$(15): 
CLOSE4:CLOSE5 


Das Beenden der Routine 
erfolgt wie gewohnt. Das 
Programm finden Sie als 

Listing Nr. 8im Anhang. 


EXOTENDRUCKER 
MCS801 


Obwohl der Farbdrucker 
MCS801 auch ein Commo- 
dore-Drucker ist, ist er, 
was Grafik angeht, keines- 
wegs kompatibel. 


GESCHÄFTSZEICHEN- 
MODUS 


Das Universalprogramm 
für nicht grafikfähige 
Drucker sollte doch ei- 
gentlich auch für den 
MCS801 Gültigkeit ha- 
ben, da hier der Ge- 
schäftszeichenmodus ge- 
nutzt wird. Doch ist dies 
eine Täuschung. Die Zei- 
chen werden umgedreht 
wiedergegeben. Was zu 
tun ist, wissen wir aber 
bereits. Mit POKE 321, 
106 sorgen wir für die 
richtige Wiedergabe. 


GRAFIKMODUS 


Beim Drucken im Grafik- 
modus ist zu beachten, 
daß dieser ähnlich wie 

bei Epson oder IBM an- 
gesteuert wird. Jedoch ist 
die Befehlssequenz eine 
andere. Die Anzahl der zu 
druckenden Punktreihen 
pro Zeile ist nicht im 


Byte-Format anzugeben, 
sondern als dreistellige 
ASCII-Zahl. Damit würde 
die Sequenz am Anfang 
einer Druckzeile lauten: 


PRINTX$E$“K320“; 


Epson- und IBM-Drucker 
erfordern dagegen: 


PRINTX$E$‘K“CHR 
(SA)CHRS(L); 
Einfacher und einpräg- 
samer ist für den Anwen- 
der sicherlich die Ansteu- 
erung des MCS-801. Auf 
einen Blick ist zu sehen, 
daß horizontal 320 Punk- 
te gedruckt werden sollen. 
Zum Nachschlagen, wie 
der richtige Zeilenabstand 
von 8/72 Zoll eingestellt 
wird, verwenden Sie bitte 
Ihr Druckerhandbuch. 


WARUM DER KREIS 


ZUR ELLIPSE WIRD 


Auf das richtige Verhält- 


nis von Höhe und Breite 
kommt es an. Wenn es 
nicht stimmt, ist nicht 
der Computer daran 
schuld, sondern der Druk- 
ker. Genauer gesagt, die 
Software, die den Druk- 
ker ansteuert. Meist läßt 
sich für die richtige Wie- 
dergabe etwas tun. 
Wählen wir die normale 


Grafikdichte von 60 Dots/ 


Zoll, so wird der Aus- 
druck zu breit. Der verti- 
kale Nadelabstand be- 
trägt nämlich 1/72 Zoll, 
was einer Dichte von 

72 Dots/Zoll entspricht. 
Beim Commodore-Druk- 
ker im Grafikmodus gilt 
somit das Verhältnis: 


Breite/Höhe=1.2 


In der in diesem Artikel 
vorgestellten Hardcopy, 
bei der wir eine Linie pro 
Zeile wegließen, ist es gar 
noch schlechter: 


8/60*72/7=1.37 


Auch für den Commo- 
dore-Drucker gibt es die 
Möglichkeit, Breite und 
Höhe im Verhältnis eins 
zu eins darzustellen. 
Wenn Sie die Hardcopy 
für den Geschäftszeichen- 


modus ausprobiert ha- 
ben, so sollten Sie es be- 
reits beobachtet haben. 
Im normalen Schrift- 
modus gibt der Drucker 
zehn Zeichen pro Zoll 
aus. Ist nicht NLQ ge- 
wählt, wird das Zeichen 
im Normalfall mit einer 
Dichte von 60 Dots/Zoll 
gedruckt, so daß in der 
Breite nur sechs Punkte 
dafür zur Verfügung ste- 
hen. Bei einigen Druckern 
wie dem MCS-801 kann 
im Schriftmodus auch ei- 
ne größere Dichte vorlie- 
gen, weswegen vielleicht 
bei ihnen die Grafik- 
Hardcopy bereits richtig 
kommen könnte. 
Dieselbe Dichte bekom- 
men wir beim normalen 
Drucker mit dem definier- 
baren Geschäftszeichen. 
Dieses Zeichen ist eben- 


falls ein zehntel Zoll breit, 


besteht jedoch aus acht 
horizontalen Punkten. 
Die Druckdichte beträgt 
somit 80 Dots pro Zoll. 
Bei 7/72 Zoll Zeilenab- 
stand wird die unterste 
Linie einer Zeile noch- 
mals mit der obersten der 


nächsten Zeile überdruckt. 


Unser Zeichen ist also 
8/80 Zoll breit und 7/72 
Zoll hoch. 


8/80*72/7=1.03 


Der Dehnungsfaktor von 
1.03 fällt überhaupt 
nicht ins Auge. Damit ist 
für Commodore-Druk- 
ker alles klar. 


EPSON-DRUCKER 
BESTENS AUS- 
GESTATTET 


Keinerlei Klimmzüge 
braucht es beim Epson- 
Drucker. Speziell für 
Hardcopies und Bild- 
schirmplots hat dieser 
auch eine Druckdichte 
von 72 Dots/Zoll, wo- 
durch vertikaler und ho- 
rizontaler Dot-Abstand 
genau gleich sind. Die 
Befehlssequenz, um wei- 
tere Druckdichten als 

es der IBM-Drucker 
erlaubt, einzustellen, 
lautet: 


ESC *» m nl n2 


33 


Der Wert von m legt da- 
bei die Druckdichte fest. 


m Dichte 

0 60 Dots/Zoll 
1 120 Dots/Zoll 
2 120 Dots/Zoll 
3 240 Dots/Zoll 
4 80 Dots/Zoll 
5 72 Dots/Zoll 
6 90 Dots/Zoll 


Die ersten vier Dichten 
von m=O bis m=3 entspre- 
chen den bereits bekann- 
ten, die auch durch ESC 
K,ESC L,ESC Y und 
ESC Z erzeugt werden 
können. Die restlichen 
Dichten sind für Grafik- 
Hardcopies mit verschie- 
denen Rechnern vorge- 
sehen. Einige Beispiele: 


Commodore 
72 Dots/Zoll 
Epson-QX-10 
80 Dots/Zoll 
DEC- 


Computer90 Dots/Zoll 


Auf m als Dichteparame- 
ter muß auch hier wieder 
die Anzahl der zu druk- 
kenden Datenbytes fol- 
gen. Wir ändern im 
Epson-Listing daher: 


PRINTXSE$‘“*“chr$(5 
en. a 


TRICK FÜR 
IBM-DRUCKER 


Über die Druckdichte 72 
Dots/Zoll verfügt der 
IBM-Drucker nicht. Wenn 
wir 80 Dots/Zoll errei- 
chen könnten, könnten 
wir dasselbe Verfahren 
anwenden wie bereits bei 
den Commodore-Druk- 
kern. Ein Trick hilft hier 
weiter: Wir stellen die 
Druckdichte auf 240 
Dots/Zoll und geben jedes 
Datenbyte dreimal hinter- 
einander aus. Den Zeilen- 
abstand stellen wir außer- 
dem auf 7/72 Zoll. 


OPEN4,4:CMD4,ES“A“ 
CHRS(7); 
PRINTXSES‘Z“CHRS 
(192)CHRS(3); 


Welche Zeilen im IBM- 
Listing zu ersetzen sind, 


B TIPS & TRICKSE 


dürfte unschwer zu er- 
kennen sein. Die dreima- 
lige Ausgabe jedes Daten- 
byte wird am besten im 
Maschinenprogramm vor- 

genommen. Der Ausga- 
Debefehl BSOUT, JSR 
$FFD2 wird einfach _ 
durch einen Sprung in ei- 
ne Unterroutine ersetzt, 
in welcher steht: 


SR $FFD2 
SR $FFD2 
MP $FFD2 


Diese neue Maschinenrou- 
tine finden Sie als Listing 
Nr. 9 im Anhang. 


KLEINER, GRÖSSER, 


DICHTER 


Die Punkte, die bei der 


vorangegangenen Hard- 
copy dicht beieinander- 
liegen, lassen die Zwi- 
schenräume fast ver- 
schwinden. Wenn der ver- 
tikale Nadelabstand eben- 
falls verringert würde, so 
würden schwarze Flä- 
chen ihren Pünktchencha- 
rakter verlieren und bei- 
nahe als gefüllte Flächen 
wirken. Eine solche Hard- 
copy sieht wesentlich 
besser aus. 

Durch mehrfaches Druk- 
ken von Datenbytes und 
Zeilen lassen sich ver- 
größerte Hardcopies er- 
zielen. Größere Dichte 
und Zeilenabstände von 
1/216 Zoll machen Ver- 
kleinerungen möglich. 
Mehr darüber gibt es im 
nächsten SPECIAL, im 
zweiten und letzten Teil 
dieser Folge. 

Probleme können bei 
Centronics-Druckern mit 
Commodore-Interface 
auftreten. Ein gutes Inter- 
face läßt die Umschal- 
tung in den Epson- oder 
IBM-Modus zu. Ein 
schlechtes arbeitet bei 
Grafik vielleicht fehler- 


haft oder erlaubt nur den 
Commodore-Modus. Wer 
alle Möglichkeiten seines 
Druckers ausschöpfen 
möchte, sei nochmals auf 
das Centronics-Kabel für 
den Plus/4 und an das 
Centronics-Interface für 
den C16 hingewiesen, 
worüber wir in der COM- 
MODORE WELT Nr. 12/ 
88 und im C16-P4-SPE- 
CIALNT. ] berichteten. 
Das Centronics-Kabel gibt 
es mittlerweile bei Rex- 
Datentechnik, die Be- 
zugsadresse für das Inter- 
face können Sie bei uns 
erfragen. Da die Treiber- 
software für den Text- 
modus gedacht und mit 
ASCII-Wandlung, auto- 
matischem Zeilenvor- 
schub bei Return oder 
Unterdrückung des ASCII- 
Codes 17 ausgestattet war, 
finden Sie im Anhang die 
Centronics-Software für 
den Grafikmodus. 


Auf.einen Fehler in der 
Beschreibung des Inter- 
face für den C16 müssen 
wir die Selbstbauer hin- 
weisen. Wir verwechselten 
die Leitungen Strobe und 
Busy. Tauschen Sie da- 
her am Druckerstecker die 
Leitung an Pin eins gegen 
die an Pin 11 aus. Pin drei 
des seriellen Ports muß an 
Pin eins des Druckerports 
und Pin elf des Drucker- 
ports an den Eingang des 
Inverters gelegt werden. 
Am günstigsten ist, zuerst 
das Programm mit der Gra- 
fik aufzurufen und esan 
der gewünschten Stelle zu 
unterbrechen. Dann ist die 
Centronics-Software zu 
laden und zu starten, da- 
nach erst die Hardcopy- 
routine. Vorher drucken 
ist ja nicht möglich. 
Weiter geht es im näch- 
sten Heft mit kleineren, 
größeren und dichteren 
Hardcopies. am.Ü 


Alle Listings auf 


Diskette für 
nur S0DM 


Russisches 
Roulett 


Bugs Bunny, der Hase, lebt von Karotten. 

Eine bestimmte Anzahl davon ist sein täglicher Bedarf. 
Der Bauer jedoch macht Bugs Bunny das Leben 
schwer. Er hat eine Bombe unter den 
Karotten plaziert. 


Das Spiel Bugs Bunny besteht aus zwei Bildern. Im er- 
sten versucht der Hase, dem Bauern die Karotten zu 
stehlen. Dieser legt zwölf Karotten in seinem Garten 
aus. Sie steuern Bugs Bunny mit dem Joystick Port 1. 
Haben Sie sich für eine Karotte entschieden, lenken 
Sie ihn so nahe wie möglich zur Karotte und drücken 
Sie den Feuerknopf. 

Vier Karotten muß Bugs Bunny einsammeln, um Run- 
de zwei zu erreichen. Dort hat er fünf und schließlich, 
in Runde drei, sechs Karotten zu klauen. 

Aber Vorsicht, der Bauer legt in jeder Runde eine Ka- 
rotte als Bombe präpariert aus. Nimmt Bugs Bunny 
die Bombe, so verliert er eines von seinen drei Leben. 
Jeder Rundenwechsel kündigt sich durch Musik und 
andere Rahmenfarbe an. Hat Bugs Bunny Runde drei 
geschafft, kommt das zweite Bild. 

Hier versucht der Bauer, den Hasen zu fangen. Zum 
Versteck von Bugs Bunny führen fünf Wege. Jeder ist 
mit Karotten ausgelegt. Aber in zwei Wegen hat Bugs 
Bunny eine Bombe versteckt. 

Sie steuern den Bauern mit dem Joystick und müssen 
sich für einen Weg entscheiden: Steuerung hoch, run- 
ter und nach rechts. Tritt der Bauer auf eine Bombe, 
so verliert er sein Leben und das Spiel ist verloren. 
Kann der Bauer Bugs Bunny erreichen, ist es gewon- 
nen. 


18 rem bugs bunny=============6.16 <lm> 
28 rem (p) commodore welt team <ho> 
38 rem ===============2== 2222 mm? 
48 rem (c) j. kienberger <ai> 
58 rem <pd> 
680 rem <ah> 
78 rem basic v3.5 <nl> 
80 rem c16/116/plus4 <ki> 
98 rem ============== === ck 
‚188 clr:vol6:gosub2578 <ia> 
118 poke55,8:poke56,56:clr <lg> 
128 gosub2668:scnclr:color®,5,1 <af> 
138 char, 12,10,wh$+"bitte warten” <dm> 
148 poke65298, peek( 65298) and251 <cp> 
158 poke65299, peek( 65299) and3or56 <hc> 
168 forb=8to17:reada <cg> 
170 poke163@+b,a:next:sys1638 <ep> 
188 fork=14856t015888step8 <ig> 
198. forb=-Rto?7:reada <en> 
288 ifa=-1then43R <ee> 
218 pokek+b,a:nextb,k <mj> 
228 data162,9,189,0,288, 157,8,56, 1 

89,8,289,157,08,57,202,208,241,96 <op> 
230 data®,8,8,8,8,195,102,68 <io> 
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248 
258 
268 
278 
288 
298 
4 
328 
318 
4 
328 
338 
‚252 
348 data55,7,7,6,6,6,6,14 

350 data236,224,224,96,96,96,96,11 
2 

368 data?,7,31,8,10,5,4,3 

378 data224,224,248,16,88,16®,32,1 
92 

380 data7,31,63,103,199,7,7,7 

390 data224,248,252,230,227,224,22 
4,224 

400 data7,7,7,6,6,6,6,14 

410 data224,224,224,96,96,96,96,11 
2 

428 data-1 

4308 a$=gr$+"A"+c4$+tc1$+oe$+"B":b$= 
ye$+"CD"+04$+c01$+c1$+"EF" 

449 c$=gr$+"G":e$=wh$+"HI”"+cA$tc1$ 
+c1$+"JIK"+cA$+c1$+c1$+"LM" 

458 d$=ye$+"NO"+c4$+c1$+c1$+b1$+"P 
g"+c4$+ce1$+tce1$+re$+"A5" 

468 a$l 1) =b3$+c4$+c1$+b3$:b$( 1)=b2 
$+04$+c 1$+c1$+b2$ 

470 e$l 1) =b2$+c4$+c1$+c1$+b2$+c4$+ 
ce1$+c1$+b2$ 

488 rem 
498 rem 
5B8 rem 
518 scnclr:vol8:colord, 1, 1:poke652 
86,11 

528 fort=23tolstep-1:char,38,t,g3$ 
+"H":char ,36,t,8g3$+"H":char,37,t,g 
3$+"H" 

5380 char, 34,t,g3$+"H":char,32,t,g3 
$+"H":char, 11,t,g3$+"H":char, 33,t, 
g3$+"H" 

548 char, 18,t,"H”:char,35,t,g3$+"H 
":char,9,t,g3$+"H":next 

55@ char, 1,2,wh$+"karotten”:char,2 
‚18,wh$+"leben":char,2,18,wh$+"run 
de” 

568 fort=1t07:char,t,3,re$+"B":cha 
r,t,?,re$+"B”":char,t, 11,ye$+”A” 
578 char,t,15,ye$+"A":char,t,19,1g 
$+"G”:char,t,23,1g$+"6":next 

588 char, 1,5,re$+"B":char,7,5,re$+ 


data126, 126,60,60,60,24,24,24 
data128,96,112,56,30, 15, 15,7 
data1,6,14,28, 120,240, 240,224 
data?7,15,15,380,56, 112,96, 128 
data224, 240,240, 120,28,14,6,1 
data129, 195,231, 1902,60,24,24,2 


dataB, 12,6,6,3,7,5,7 
data16,48,96,96, 192,224, 160,22 


data7,6,3,1,3,15,31,55 
data224,96, 192,128, 192,240, 248 


bildschirmaufbau 


<znc> 
<nk> 
<do> 
<mj?> 
<np> 


<be> 
<em> 


<mn> 
<dn> 


<lc> 
<ga> 


<bk> 
<ej> 


<jb> 
<ii> 


<bb> 
<aj? 


<ij?> 
<mg> 


<eo> 
<cm> 
<cj?> 
<al> 
<cj? 
<jc> 
<gl> 
<dg> 


<lb> 


<df> 


<io> 


<cn> 


<gb> 
<bl> 
<po> 


<ng> 
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598 char, 1,13,ye$+"A":char,7,13,ye 
$+"A" 

608 char, 1,21,1g$+"G":char,7,21,1g 
$+"G"” :poke65286, 27 

618 1=3:1v=1:v1=8 

628 k=A+vi:char,3,21,wh$+str$(1lv): 
char, 3,13,wh$+str$(1):char,3,5,wh$ 
+str$(k) 

638 char, 16,21,b2$+b2$+b2$+b2$+b2$ 
+b2$+b2$+b2$ _ 

649 z=8:x=28:51%=2:t1%=2:11%=2:u1% 
=2:W1%=2:x1%=2 

650 s2%=2:2%=2:v2%=2:u2%=2:w2%=2: 


x2%=2 

668 Fort=1t0o7B@:next 

678 r1=29:r2=14 

688 rem + —— 
698 rem karotten setzen 

788 rem -----------7- 777777 — 
718 char,r1,22,a$:char,27,21,d$:fo 


rt=1t05@@:next:char,27,21,e$(1) 
728 x=x-1:ifx<1thend1Bd 

738 ifx=17thengosubBBdB 

748 ifx=13thengosub8dß 

758 ifx=9thengosub8dß 

769 ifx=-5thengosub8ß® 

778 ifx=1thengosub88d 

788 char, 27,x,d$:char, 27,x+3,e$(1) 
:sound2, 688,8 

798 g0t0728 

BAZB char,ri,x+1,a$:sound1,898,2:re 
turn 

818 char,27,x+1,e$( 1) :fort=1t048B: 
next 

828 w=4A:char, 15, 1,d$:char,r2,2,a$: 
fort=1t0588:next:char, 15,1,e$( 1) 
838 w=w+1:ifw>21then928 

848 ifw=5thengosub918 

858 ifw=9thengosub918 

8689 ifw=13thengosub918 

878 ifw=17thengosub91A 

888 ifw=21thengosub918 

898 char, 15,w-3,e$( 1) :char, 15,w,d$ 
:sound2, 688,8 

gun gotod3d 

918 char,r2,w+1,a$:sound1,888,2:re 
turn 
928 
938 
948 
958 
968 
978 


char, 15,w-1,e$( 1) 
fort=1t048@:next' 
a=int(rnd(B) #12) +1 
ifa=ithenc=15:0=1 
ifa=2theng=27:0 
ifa=3thenc=15:0 
988 ifa=Atheng=27:0 
998 ifa=5thenc=15:0 
1888 ifa=6theng=27:0=9 
1818 ifa=7thenc=15:0=13 
1828 ifa=8theng=27:0=13 


u 
oo 


<dd> 


<kk> 
<ho> 


<pk> 
<ij> 
<dk> 


<ff> 
<op> 
<oe> 
<gb> 
<jp?> 
<jm> 


<lb> 
<di> 
<oi> 
<gc> 
<ol> 
<ah> 
<oa> 


<el> 
<ep> 


<ld> 


<eg> 


<nc> 
<co> 
<fm> 
<mg> 
<ml> 
<ol> 
<pg> 


<pe> 
<dk> 


<ci> 
<hi> 
<ad> 
<kh> 
<on> 
<on> 
<hd> 
<oj? 
<pg> 
<ga> 
<bd> 
<cm> 


BUGS-BUNNY 


1838 ifa=9thenc=15:0=17 <lo> henreturn <fm> 
1848 ifa=ißtheng=27:0=17 <eh> 1490 char,r2,u2+1,a$( 1) :sound2, 808 

1858 ifa=1ithenc=15:0=21 <mj?> ‚A:sound2,958,3:k=k-1 <eb> 
1868 ifa=12theng=27:0=21 <oo> 1588 char, 3,5,wh$+str$(k) <dk> 
1078 ul=21:u2=21 <gj? 1518 ifk<ithenlv=1v+1:gosub1658:go 

1888 rem ---------------------- <he> sub 1778:v1=v1+1:goto624 <ae> 
10898 rem steuerung <hn> 1528 goto1120 <chb> 
LTOE BE <fj> 1538 char, ,‚u1+1,u2+1,b$:fort=258to1 

1110 pake1344,64:poke239,8 <nb> Bstep-2@: sound3, 748+t,3:next:fort= 

1128 char ,ul,u2,e$ <1h> 1t0o38@:next <en> 
1138 ifjoy( 1) =1thengosub 1198 <fk> 1548 char ,‚ul+1,u2+1,b$(1):char,ul, 

1148 ifjoy( 1)=5thengosub1220 <pa> u2,e$( 1) :1=1-1 <jk> 
1158 ifjoy( 1) =3thengosub 1258 <np> 1558 char,3,13,wh$+str$(1) <ga> 
1168 ifjoy( 1)=7thengosub 1288 <cd> 1568 ifl-@then 1838 <ll> 
11708 ifjoy( 1)>127thengosub131@ <ma> 1578 fort=1t04B@:next <an> 
1188 goto112® <ip> 1584 gosub1778: goto628 <le> 
1198 u2=u2-4:ifu2<1thenu2=1 <hb> 1598 char,u1-1,u2+1,b$:fort=258to1 

1288 char,ul,u2+4,e$(1) <ej?> Bstep-28:sound3, 748+t,3:next:fort= 

121@ return <al> 1t038®:next <he> 
1228 u2=u2+4:ifu2>21thenu2=21 <mo> 1688 char,u1-1,u2+1,b${1):char,ul, 

1238 char,u1,u2-4,e$(1) <ne> u2,e$( 1) :1=1-1 <1p> 
1248 return <eh> 1618 char,3,13,wh$+str$(1) <lo> 
1258 ul=ul+1:ifu1>27thenu1=27 <pi> 1628 ifl=®then1838 <dp> 
1260 char,u1-1,u2,e$(1) <bo> 1638 fort=1t0488:next <1k> 
1278 return <id> 1648 gosub1770:g0t0628 <mh> 
1288 ul=ul-1:ifui<15thenu1l=15 <km> 1658 restore2648 <mc> 
1298 char ,uil+1,u2,e$( 1) <jh> 1668 reads,e <en> 
13848 return <ma> 1678 ife=Bthen 1788 <fl> 
1318 iful=gandu2=othen 1538 <lg> 1688 soundl,s,e <dp> 
1328 iful=candu2=othen 1598 <el> 1690 goto1668 <kl> 
1338 ifu1=27then1368 <gl> 1788 bb=int(rnd(B) #14) +2:color4A,bb 

1348 ifu1l=15then 1438 <lc> 2 <jl> 
1358 return <ce> 1718 return <ph> 
1368 ifu2=1thens 1%=s1%-1:ifs1%<1th 1720 fort=Bto@step-1:volt:fori=1to 

enreturn <dj> 3:sound2, 758, 2:nexti:sound2, 988,3: 

1378 ifu2=5thent 1%=t1%-1:ift1%<1th nextt <dp> 
enreturn . . <ec> 1738 gosub1778 <oc> 
1388 ifu2=9thenu1%=u1%-1:ifu1l%<ith 1748 char,4,21,wh$+str$(1v) ng> 
RRRSUHEN <o 175@ iflv>3then1928 <ap> 
1398 ifu2=13thenv1%=v1%-1:ifv1%<1t 1768 fort=1to6Bß®:next:goto628 <jj? 
henreturn <fn> 1778 fort=2t022step2:char, 14,t,a$( 

1488 ifu2=17thenw1%=w1%-1:ifwi1%<1t 1) :char,29,t,a$( 1) :next <fj> 
henreturn <gm> 1788 char,ui,u2,e$( 1) <pe> 
1418 ifu2=21thenx1%=x1%-1:ifx1%<1t ‚ 1798 fort=1t0488:next <hm> 
henreturn <1k> 1888 char,2,21,wh$+str$(1v) <bj> 
1428 char,r1i,u2+1,a$( 1) :sound2, 888 1818 iflv>3then 1928 <nk> 
‚4:sound2,958,3:k=k-1:goto1588 <ol> 1828 return <ne> 
1438 ifu2=1thens2%=s2%-1:ifs2%<1th 1838 fort=288todstep-18:sound2,8BB8 

enreturn <ei> +t,7:next <In> 
1448 ifu2=5thent2%=t2%-1:ift2%<1ith 1848 char, 16,21,«wh$+"noch einmal(j 
enreturn <fp> In)” <hg> 
1458 ifu2=-9thenv2%=V2%-1:ifv2%<ith 1858 poke239,8:getkeys$ <ho> 
enreturn <fp> 1868 ifs$="j"thenrun <no> 
1468 ifu2=13thenu2%=u2%-1:ifu2%<it 1878 ifs$="n"then1888 <mp> 
henreturn zik> 1880 scnclir:end <ip> 
1478 ifu2=17thenw2%=w2%-1:ifw2%<1it 1898 rem ----------------------- <ef> 
henreturn <kc> 1988 rem bild 2 <pi> 
1488 ifu2=21thenx2%=x2%-1:ifx2%<1t 19198 rem ----------------------- <co> 
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1928 scnelr:poke65286, 11:color#, 1, 
1 

1938 char,2,18,wh$+"leben”:char,2, 
18,wh$+"bild" 

1948 fort=1to?:char,t,11,ye$+"”B":c 
- har,t,15,ye$+"B":char,t, 19,re$+"H" 
1958 char,t,23,re$+"H":next 

1968 char, 1,13, ye$+"B":char,7,13,y 
e$+"B":char, 1,21,re$+"H":char, 7,21 
‚re$+"H" 

1978 fort=11to36:char,t,1,g3$+"T": 
char ,t,23,g3$+"T":next 

1988 fort=2t022:char, 11,t,g3$+"T"”: 
char ,36,t,23$+"T":next 

1998 fort=18t03@step2:char,t,4,a$: 
char,t,12,a$:char,t,28,a$ 

2888 char,t,8,a$:char,t,16,a$:next 
2818 fort=17t0o31:char,t,2,c$:char, 
t,6,c$:char,t,18,c$ 

2028 char,t,14,c$:char,t,18,c$:cha 
r,t,22,c$:next 


2838 char,33,11,e$ 
20848 poke65286,27 
2858 1=1:r=2 


2068 w%=int(rnd(B) #5) +1 

2878 m%=int(rnd(8)*#5) +1 

2880 ifw%=1thenv%=28:x%=3 

2098 ifw%=2thenv%=28B:x%=7 

21088 ifw%=3thenv%=28:x%=11 

2118 ifw%=4thenv%=28:x%=15 

2128 ifw%=5thenv%=28:x%=19 

21308 ifw%=m%then2868 

2149 ifm%=1thenn%=25:0%=3 

2158 ifm%=2thenn%=25:0%=7 

2168 ifm%=3thenn%=25:0%=11 

2178 ifm%=A4thenn%=25:0%=15 

2188 ifm%=5thenn%=25:0%=19 

2198 fort=8toßstep-1:volt:fori=1to 
3:sound2,758,2:nexti:sound2, 980,3: 
nextt 

2288 vol8:char,3,13,wh$+str$(1):ch 
ar,3,21,wh$+str${r) 

2218 z%=14:y%=19 

2228 rem 
2238 
2248 
2258 
2268 
2340 
2278 
2378 
2288 
2480 
2298 
2300 
2318 
2328 
2338 


rem 
char, z%, y%,d$ 
ifjoy( 1)=1thengosub2388:gasub 


ifjoy( 1) =Sthengosub238#: gosub 
ifjoy( 1) =3thengosub2389:gosub 


goto2258 
ifr%-v%ondy%=x%thenz2438 
ifz%=n%andy%=0%then2478 
ifz%=33andy%=11then2518 
return 


<ob> 
<jm> 


<gl> 
<co> 


<gl> 
<mb> 
<bf> 


<hi> 
<ah> 


<ge> 


<gj?> 
<j1l> 
<kg> 
<pp> 
<di> 
<ee> 
<dj> 
<dl> 
<bj> 
<ib> 
<1lh> 
<ok> 
<fi> 
<1j> 
<nf> 
<hg> 
<ko> 


<ff> 


<mg> 
<mj> 
<pc> 
<cm> 
<dl> 
<ep> 


<io> 
<gg> 


<hn> 
<ne> 
zct> 
<bc> 
<ie> 
<ne> 
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2348 

2358 
1 

2368 return 5. 

2370 y%=y%+4:ify%>19theny%=19 

2388 char, z%,y%-4,e$( 1) :sound1,688 
1 

’ 

2398 

2408 

2418 
FL. 

2428 return 

2438 char, z%,y%+1,b$:fort=258to1®s 

tep-28:sound3, 740+t ,3:next:fort=1t 

o388:next 


y%=y%-A:ify%<3theny%=3 
char, z%, y%+4,e$(1):sound1,688 


return 
z%=-z%+1:ifz%>33thenz%=33 
char, z%-2,y%,e$( 1) :sound1, 688 


P4AB char, z%,y%+1,b$(1):1=1-1 

2458 ifl=Bthen2558 

2468 goto1928 

2478 char, z%, y%+1,b$:fort=258toi®s 
tep-28:sound3, 748+t ,3:next:fort=1t 
o3@28:next 

2488 char, z%, y%+1,b$(1):1=1-1 

2498 ifl=B8then2558 

2508 goto1928 

2518 fort=1t04:sound1,788,3:sound2 


‚888,5:next 

2528 scenclr:char,11,18,wh$+"g e w 
onnen" 

2538 fort=1t016:fors=8t07:color4,t 
‚s:nexts:nextt 

2548 fort=1to6:sound2, 988,3:sound] 
‚881,7:next:poke239,@8:end 

2558 Fort=288toßstep-18:sound1,888 
+t,5:next 

2568 senelr:char,11,18,wh$+"ver 
lo re n":poke239,®:end 

2578 scenelr:char, 11,11,ye$+"b u g 
s bunny" 

2588 restore2648 

2598 readu,a 

2688 ifu=-1then2638 


2618 sound1,u,a 

2628 g0to2598 

2638 fort=1to6@9:next:return 

2648 data?784,10,739,18,770,10,798, 
18,810,15,810,18,834,18,739, 180,854 
‚18,818,18 

2658 data798,15,-1,8 

2660 rem nachspann =============== 
2678 rem * farbcodes/steuercodes * 
2688 wh$=chr$( 885) :c4$=chr$( 817) 
2698 re$=chr$( 028) :gr$=chr$( 838) 
2788 b1$=chr$( 831) :oe$=chr$( 129) 
2718 bk$=chr$( 144) :1g$=chr$( 153) 
2720 g3$=chr$( 155) :c1$=chr$( 157) 
2738 ye$=chr$( 158) 

2748 b2$=" "+" ":53$=" " 

2758 return 
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<de> 
<pj?> 
<ba> 
<ij> 
<dd> 
<em> 
<fl> 
<me> 


<ii> 


<if> 
<bg> 
<mc> 
<eo> 


<od> 
<cl> 
<bf> 
<eb> 
<di> 
<kc> 
<ge> 
<aj?> 
<ep> 


<jk> 


<ng> 


 <ip> 


<kj> 
<ij> 
<kj> 
<fi> 
<dd> 


<l1k> 
<cd> 
<gf> 
<pa> 
<hg> 
<ea> 
<mb> 
<ag> 
<dc> 
<jm> 
<fc> 
<bp> 


« 


BTIPrs & TI DD a aa 


UTILITIES SECURE 


mon Schützen Sie Ihre BASIC-Programme mit diesem Pro- 
ewu wie gramm. Durch Eingabe von fünf Doppelpunkten hin- 
® ter der Zeilennummer wird diese Zeile geschützt. 
Beim Listen wird nur noch die Zeilennummer ausge- 
geben. Auch diese Routine belegt keinen BASIC-Spei- 


Sieben cherplatz. Aufgerufen wird sie mit SYS 1630. 
| \ ee hen w 
Hilfsprogramme 2:4. % 


38 rem ========================== 0 <mm> 
Wollen Sie einem Datenverlust infolge eines 48 rem (c) by eckhard schulz == <de> 
Device Errors vorbeugen, Listingzeilen unsichtbar 5@ rem == «if> 
machen, den Bildschirm schonen und anderes? 68 rem == <nd> 
Hierfür steht Ihnen diese Routinensammlung 78 rem basic v3.5 == <cog> 
zur Verfügung. 88 rem c16/116/plus4 == <fk> 
99 rem ========================== 0 chm> 
ee HA ELE FneEnereensesi ie 180 gosub 558 <bj> 
BILBSCHUTZ . 118 summe = 8 <fo> 
Dieses Verfahren habe ich mir beim Programmieren 128 for adresse = 1638 to 1861 <pd> 
auf dem Atari abgeguckt. 138 read byte$ <hg> 
148 summe = summe + dec (byte$) <la>: 
10: rem bildschutz=-*"-" nn] <bg> 158 poke adresse , dec (byte$) <dh> 
28 rem (p) commodore welt == <hf> 168 next adresse <dk> 
le Br rer 17@ if summe <> 24151 then print c 
48 rem (c) by eckhard schulz == <dc> 1$c4$" data-error"” 
58 rem == «if> end <fm> 
60 rem „- nd» 188 print c1$cA$rn$"” secure secur 
70 rem basic v3.5 =. .<cg? e secure secure secure "rf$ <ph> 
88 rem Bra IoAPIU=T Fr he 198 print c4$" um zeilen zu sch 
© ven RR uetzen hinter der <eo> 
180 data 78,9,6e,8d,14,03,a9,06 <kh> 208 print c4$” zeilennummer 5 do 
118 data 84, 15,83,58,20,db,ff,68 <ci> ppelpunkte setzen. <bk> 
120 data a5,fa,c9,01,f0,1f,a5,c6 <kd> 219 int c4$" y 
print c4$ rufen sie dann 
130 data c9,40,f0,04,a9,00,85,34 <ac> dia zuutine wft <om> 
140 data a5,34,c9,28,30,23,ad,06 <bi> 220 print c4$" sys 16 
150 data ff,69,08,8d,26,ff,a9,®1 <ah> 38 auf.” <fb> 
168 data 85,fa,4c,87,06,85,c6,c9 <od> 230 print cA$rn$” secure secure 
178 data 48,fß,Be,ad,B6,ff,e9,08 <1b> secure secure secure "rf$ <kp> 
1880 data 8d,06,ff,a9,00,85,fa,85 <cn> 248 : <bl> 


I96 Hate nd An, Yn,on DD,DN, 00,0 <elx 250 data 20,6b,c5,ad,@1,10,d0,05 <ge> 


2088 : <ml> 
ge 268 data ad,92,10,70,26,49,01,85 <nh> 
Ei a : vos ta. 7709 Ep 270 data 57,a9,10,85,58,a0,00,b1 <ge> 
En Si a Ba: Pe 288 data 57,85,5a,20,16,07,b61,597 <hb> 
poke a „ ec (a3 RR 290 data 85,5b,28,16,07,61,57,85 <pe> 
240 b = b + dec (a$) <mo> ae IE NE " 
ee mriced 300 data 5d,20,16,07,61,57,85,5c  <bk> 
' ’ 319 data 4c,97,06,a2,00,bd,22,07 <im> 
260 if b < > 9327 th ie Me Rt een 
se = ee a 328 data 20,d2,ff,eB,e®,14,d0,f5  <hf> 
270 if b < > 9327 then go to 290 <cn> _ . en e_ 
288 print "aufruf : sys 1638" <oe> En 
oh Zng 350 data 28,d2,ff,eB,e#,05,d8,f5 <fd> 
"% 368 data a9,28,20,d2,ff,a6,5d,a5 <ke> 
Wird auf dem Computer innerhalb von 2,45 Minuten 378 data 50,28,5f,34,64,59,a2,008 <ii> 
keine Taste betätigt, wird der Bildschirm automa- 388 data 28,16,07,b1,57,c9,3a,d8B .<jn> 
tisch abgeschaltet. Nach dem Drücken einer beliebi- 390 data BB,e8,e®,05,d®,f2,4c,e9 <ec> 


gen Taste wird er wieder eingeschaltet. Dabei geht der 
Bildschirminhalt nicht verloren. Das Programm ist im 468 data 96,05,50,05,57,05,5b,05 <jd> 
freien Speicherbereich an 1630 abgelegt und wird mit A410 data 58,0,80,59,0d,20,d2,ff <oi> 
SYS 1630 gestartet. 420 data 4c,75,86,28,10,07,28,1c <mi> 
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ıı _ _ _  _ _____________ kiss 


438 data 
449 data 
458 data 
469 data 
478 data 
488 data 
498 data 
520 data 
518 data 
528 data 
5380 data 
548 end 


07,20,1c,07,20,1c,07,84 
59,09,20,20,d2,ff,a4,59 
a9,00,91,57,84,59, a2, 08 
bd,3b,07,20,d2,ff,eB,e® 
Ba,d®,f5,04,59,4c,d7,86 
c8,d®,92,e6,58,60,88,d® 
#2,c6,58,60,50,52,47,54 
45,43,54,49,4f,4e,20,46 
49,48,49,53,48,45,44, ?e 
4c,49,4e,45,33,50,52,4F 
54,45,43,54,45,44,2e,080 


558 rem nachspann ============== 
568 rem *farbcodes/steuercodes * 
578 c4$=chr$( 817) :rn$=chr$( 818) 
588 rf$=chr$( 146) :c1$=chr$( 147) 
598 return 


602 rem = 


6id remprogrammende 


628 rem = 


DEVICE ERROR 


Ist es Ihnen noch nicht passiert? Da haben Sie 1.000 
Daten ins selbstgeschriebene Dateiprogramm eingetra- 
gen und beim Speichern stellen Sie fest, daß Sie die 


<ch> 
<20> 
<ml> 
<ob> 
xoa> 
<1j> 
<lf> 
<oa> 
<hf> 
<cc> 
<hp> 


<lm>° 


<em> 
<og> 
<ig> 
<ob> 
<co> 
<dn> 
<ck> 
<ik> 


Floppy nicht eingeschaltet haben. Die Folge: Der 


18 rem device-error===========(0] 
28 rem (p) commodore welt == 


380 rem == 


zz 22 52 = sem =m=e=s See 


40 rem (c) by eckhard schulz == 


SQ rem 
68 rem 


78 rem basic v3.5 == 
88 rem c16/116/plus4 == 


98 rem == 


95 gosub 60088 
188 for adresse = 1638 to 1949 
110 read byte$ 
128 poke adresse , dec (byte$) 


132 summe 
148 next 


150 if summe <> 9129 then print c4A 


$"error" 
168 print 


178 print c4$" initialisierung mit 


= summe + dec (byte$) 


c1$c4$" device error" 


sys 1630" 
188 print c4$" ausschalten mit 


sys 1641 


198 print c4$"” 


" 


sekundaer- 


2B® print c4$" 
erden und 


218 print c4$" vor dem senden ein 


leeres 


228 print c4$" 


egeben wer- 
238 print c4$" den. 


jedes file muss mit 


adresse eroeffnet w 


print# - kommando g 


<aa> 
<hf> 
<mm?> 
<dc> 
<if> 
<nd> 
<cg> 
<fk> 
<km> 
<jp> 
<bl> 
<eh> 
<kb> 
<jb> 
<jl> 


xng> 
<gd> 


<dm> 
<eb> 
<1ln> 
<fc> 
<kl> 


<kp> 
<dn> 


248 print c4$" open 1,4,8 : print 


1 <gm> 
2508 print <io> 
268 : <ee> 


270 data a9,72,84,00,03,89,06,8d <em> 
288 data 01,03,60,a9,86,84,08,03 <hi> 
290 data 84,01,03,60,e0,05,f0,03 <pj> 
3080 data 4c,86,86,a9,86,80,06,208 <jb> 
310 data 88,90,20,e4,ff,fO,fb,60 <bp> 
328 data 8d,8d,44,41,53,28,47,45 <ip> 
3380 data 52,41,45,54,20,49,53,54 <mf> 
348 data 20,4e,49,43,48,54,20,41 <fa> 
358 data 4e,47,45,53,43,48,41,4c <ni> 
360 data 54,45,54,20,21,0d,4e,41 <kj> 
378 data 43,48,20,41,48,53,43,48 <fg> 
388 data 41,40,54,45,4e,20,42,49 <ga> 
398 data 54,54,45,20,54,41,53,54 <fm> 
408 data 45,20,44,52,55,45,43,4b <pl> 
410 data 45,4e,0d,00,00,00,00,00 <c#> 
428 end <ml> 
6008080 rem nachspann ============== <pj> 
6BBIB rem *farbcodes/steuercodes * <kg> 
60828 c4$=chr$(917) :c1$=chr$( 147) <ol> 
68038 return <fo> 
Rechner steigt aus und die Daten sind verschwunden. 
Damit das nicht wieder passiert, habe ich diese Rou- 
tine eingeschaltet, ein Kanal mit Sekundäradresse er- 


öffnet und ein leeres PRINT# gesendet. Wenn kein 
Fehler auftrat, wird die Routine wieder ausgeschaltet. 


PRINT AT 


Hat es Sie nicht schon immer gestört, daß mit der 
CHAR-Anweisung nur fertige Strings übermittelt 
werden können? Mit dieser Routine wird der Cursor 


id ren print de -„-.=2=016. <nh? 
28 rem (p) commodore welt == <hf> 
30 rem ========.=2=222======22=2== 0 cmm> 
48 rem (c) by eckhard schulz == <dc> 
58 rem == <if> 
68 rem j == <nd> 
78 rem basic 3.5 == <mg> 
88 rem c16/116/plus4 == <fk> 
90 rem ========================== 0 <km> 
95 gosub 69888 <jp> 
188 for adresse = 1638 to 1666 <bi> 
118 read byte$ <eh> 
128 poke adresse , dec (byte$) <kb> 
138 next adresse <ba> 
288 printcl$c4$" aufruf: <ed> 
218 printc4$" sys 1638,spalte,zeil 
e,string <hn> 
228 printc4$c4$" beispiel: sys1638 
‚8,1,"chr$(34)"test"chr$( 34) <bc> 
2380 printc4$" schreibt in zeile 1 

und spalte B den <jl> 
248 printc4$" text "chr$(34)"test" 
chr$( 34)"." <cd> 
999 : <ap> 
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TIPS RI m un 


1880 data .20,91,94,208,84,9d,8a3,c9 
18108 data 28,b0,17,48,20,91,94,28 
1028 data 84,9d,e0,19,68,0c,68,a8 
1038 data 18,28,f0,ff,208,91,94,4c 
10848 data Bb,908,4c,1c,99 

10858 fort=1638t01666:reada$:poket, 
input(a$) :next 

1068 end 

60008 rem nachspann ============== 


6008 


genauso positioniert, aber der Text wird jetzt ausge- 


18 rem *farbcodes/steuercodes * 
60028 
69030 
60040 


c4$=chr$( 017) :c1$=chr$( 147) 


return 


rem end 


druckt wie ein normaler PRINT-Befehl. 


SUPER LIST 


Mit dieser Routine ist es endlich möglich, ein forma- 
tiertes Listing auszugeben. Hier wird nach dem LIST- 


Befehl jedem Befehl eine Zeile gegeben. 


Nun wird auch die längste BASIC-Zeile wieder über- 


101 
182 
183 
104 
105 
186 
107 
188 
189 
118 
6008 
688 
688 


0 d 
8 d 
dd 
Od 
dd 
dd 
a d 
0. d 
8 d 
de 
08 

18 

20 


62038 
60048 


ata 07,03,60,10,03,4c,78,8b 
ata c9,3a,f0,03,4c,4f,8b,a9 
ata 0d,20,d2,ff,98,48,a8,82 
ata b1,5f,aa,cB,b1,5f,85,62 
ata 86,63,22,90,38,28,ce,a2 
ata 20,71,04,32,00,bd,09,91 
ata f0,03,e8,d0,f8,a9,29,208 
ata d2,ff,ca,d®,fa,68,38,a9 
ata 28,4c,4f,8b,00,08,00,00 
nd 


rem nachspann zszszsz=mm=s=== === 


rem *farbcodes/steuercodes 
c4$=chr$( 917) 

return 

rem ende 


sichtlich. 

18 rem superlist==============016 
28 rem (p) commodore welt == 
38 rem =========================> 
40 rem (c) by eckhard schulz == 
58 rem == 
68 rem . 
70 rem basic 3.5 == 
80 rem c16/116/plus4 == 
98 rem ===================2=22===== 
"95 gosub 69900 

188 for adresse = 16380 to 1709 
110 read byte$ 

128 poke adresse , dec (byte$) 
130 s = s + dec (byte$) 

148 next adresse 

158 if s <> 8918 then printc4$" er 
ror":end 

160 print c4$" aufruf: sys 1638 
999 : 

1800 data a9,69,8d,06,83,39,06,8d 


<pa> 
<om> 
<ka> 
<lf> 
<fp> 


<fl> 
<na> 
<pj? 
<kg> 
<ol> 
<fo> 
<in> 


<dd> 
<hf> 
<mm> 
<dc> 
<if> 
<nd> 
<mg> 
<fk> 
<km> 
<jp> 
<bd> 
<eh> 
<kb> 
<eo> 
<ao> 


<ae> 
<ki> 
<ap> 
<kg> 
<fb> 
<ei> 
<pd> 
<dg> 
<mi> 
<ei> 
<dk> 
<oc>? 
<dm> 
<ca> 
<pj?> 
<kg> 
<cj? 
<fo> 
<ga> 


BLOCK LOAD 


Da es mit dem Monitor nicht möglich ist, an eine be- 
stimmte Adresse zu laden, mußte eine Routine her, 
die das erlaubt. Das Programm liegt ab Adresse 1630 
und benutzt keinerlei BASIC-Speicherplatz. Gestar- 
tet wird die Routine mit SYS 1630, gefolgt von ei- 


12 rem block load=========-=-=-==016 


28 rem (p) commodore welt = 
38 rem ========-=-=-2=-=-2-2. 22 =2=2==2=2=2202- 
40 rem (c) by eckhard schulz == 
58 rem ’ == 
60 rem == 


78 rem basic 3.5 == 
88 rem c16/116/plus4 == 
908 rem ===============2=2222220002= 
95 gosub 69998 

180 for adresse = 1630 to 1657 
118.read byte$ 

128 poke adresse , dec (byte$) 

138 summe = summe + dec (byte$) 
148 next adresse 

150 if summe <> 2829 then printc4$ 


error":end 
168 printcl$c4$" laden von speiche 
rbloecken 
1798 printc4$" an eine bestimmte ad 
resse 


188 printc4$" aufruf: 

198 printc4$" sys 1638,adresse,pro 
grammname ,geraet 

208 printc4$" sys 1630, 16888,"chr$ 
(34) "test"chr$(34)",8 

218 print 

220 : 

2380 data 28,de,9d,a5,14,48,35,15 
240 data 48,28,91,94,a9,00,85,0Ba 
258 data 20,6b6,38,68,.8,68,aa,a9 
268 data 80,40,00,28,08,00,00,00 
278 end 

60008 rem nachspann ============== 
68810 rem *farbcodes/steuercodes * 
60028 c4$=chr$( 917) :c1$=chr$( 147) 
60030 return 

60040 rem end 


<ib> 
<hf> 
<mm> 
<dc> 
<if> 
<nd> 
<mg> 
<fk> 
<km> 
<jp? 
<bh> 
<eh> 
<kb> 
<jb> 
<ao> 


<gi> 
<ji> 


<cd> 
<ig> 


<ci> 


<ae> 
<do> 
<pd> 
<ba> 
<mi> 
<ka> 
<kn> 
<jo> 
<pj? 
<kg> 
<ol> 
<fo> 
<in> 


nem Komma und einer Adresse, die in dezimaler Form 
vorliegen muß. Filenamen und Geräteadresse schließen 


sich an. 


DEEK/DOKE 


Mit Deek läßt sich der Speicherinhalt zweier nachfol- 
gender Adressen errechnen und einer Variablen zu- 


weisen. 


Doke ist das Gegenteil von Deek. Mit diesem Befehl 
kann man zwei aufeinanderfolgenden Adressen’einen 
neuen Inhalt geben. Um den BASIC-Start nach 6000 
hochzulegen, mußte man bisher folgendes eingeben: 
POKE 43,112:POKE 44,17. Mit dieser Erweiterung 


nur noch SYS 1667,43,6000 


40 


im STNGSE 


18 rem deek/doke=====-=-=====-===016 <mb> 
28 rem (p) commodore welt == <hf> 
38 rem ========================== <mm> 
48 rem (c) by eckhard schulz == <dco> 
58 rem == <jif> 
68 rem == <nd> 
78 rem basic 3.5 == <mg> 
88 rem c16/116/plus4 == <fk> 
98 rem ==================2======22= 0 ckm> 
95 gosub 68098 <jp> 
1088 for adresse = 1638 to 1697 <bp> 
118 read byte$ <eh> 
128 poke adresse , dec (byte$) <kb> 
138 summe = summe + dec (byte$) <jb> 
148 next adresse <ao> 
150 if summe <> 7885 then printc4$ 

" error":end <ge> 
168 printcl$c4$" deek und doke fue 

r den c16/116 plus/4 <aa> 
178 printc4$c4$" deek = sys 1638, 

dresse low, variable <ho> 
188 printc4$" doke = sys 1667,adre 

sse low,wert <pb> 
198 printc4$c4$" beispiel: <al> 
20808 printc4$" sys 1638,43,a <ab> 
218 print" der variablen ‘a’ wird 

der wert der <aj? 
228 print" adressen 43 und 44 zuge 

wiesen. <ai> 
238 print" das entspricht dem befe 

hl: <hh> 


248 print" a=peek( 43) +peek( 44) #256 
250 printc4$" sys 1667,43,68®88 

268 print" hier wird in die adress 
en 43 und 44 der 

278 print" wert 6080 gepoked. 


<ki> 
<jg> 


<gg> 
<ge> 


288 print" das entspricht dem befe 

hl: <fp> 
298 print" poke 43,112:poke44,17 <gn> 
308 : <je> 
310 data 28,99,06,22,080,a1,14,85 <kg> 
328 data 63,e6,14,81,14,85,62,32 <bb> 
330 data 90,38,28,ce,82,20,91,94 <eo> 
348 data 28,35,96,85,49,84,4a,28 <ct> 
350 data 1b,93,4c,55,32,20,99,86 <nk> 
368 data 84,71,85,72,20,99,06,.2 <ci> 
378 data 80,98,81,71,e6,71,85,15 <eh> 
388 data 81,71,60,20,91,94,20,14 <nm> 
398 data 93,4c,e4,9d,88,00,08,08 <ak> 
480 end - <kd> 
60888 rem nachspann ============== <pj> 


60010 rem *farbeodes/steuercodes * <kg> 
62828 c4$=chr$( 017) :c1$=chr$( 147) <ol> 
60030 return <fo> 
60848 rem ende <ga> 


DEEK entspricht einem erweiterten PEEK und DOKE 
einem erweiterten POKE. 
Eckhard Schulz U 


wo Gestik 
für Ihre 
Zahlen 


Übersichtlich und anschaulich präsentieren sich 
sonst nichtssagende Zahlen, wenn sie in Form von 
Balken-, Kreis- und X-Y-Diagrammen für das Auge 

aufbereitet werden. Keine besonderen An- 
strengungen sind für die grafische Ausarbeitung von- 
nöten, sondern nur das vorliegende Programm. 


Das Programm Diagramm 16 bietet die Möglichkeit, 
Zahlenangaben (zum Beispiel Statistiken) in an- 
schaulichen und übersichtlichen Grafiken darzu- 
stellen. 

Prinzipiell stehen drei verschiedene Diagramme zur 
Auswahl, deren Verwendung durch Art und Umfang 
der darzustellenden Werte bestimmt wird. 

Nach dem Start des Programmes wird zunächst eine 
Maschinenroutine zum Laden und Speichern von 
nen eingelesen und im Kassettenpuffer ab- 
gelegt. 

Danach gelangt man in das Hauptmenü mit den 
Punkten: 

. Demos 

. Balkendiagramm 

. Kreisdiagramm 

. x-y-Diagramm 

. Laden/Speichern 

. Programmende 


ON\N.RAWD- 


1. Demos 


Man gelangt in ein Untermenü, aus dem heraus zu je- 
dem der drei möglichen Diagramme eine Demo abge- 
rufen werden kann. Hierdurch gewinnt man am 
schnellsten einen Überblick über die Einsatzmöglich- 
keiten der Grafiken. Durch Druck einer Taste wird 
anschließend wieder das Hauptmenü angesprungen. 


2. Baikendiagramm 


Nach einer kurzen Einleitung werden folgende Einga- 
ben verlangt: 

® Überschrift der Grafik (maximal 40 Zeichen lang); 
@ Maßeinheit der Zahlenwerte; 

® Anzahl der darzustellenden Balken (1 bis 6); 

® Zahlenwerte (1 bis 6) und deren Bezeichnung. 
Anschließend wird die Grafik aufgebaut. Die Balken 
werden räumlich umrissen und farblich unterschieden. 
Überschrift, Maßeinheit, Zahlenwerte und Bezeich- 
nung werden durch CHAR-Befehle plaziert. Durch 
Druck einer Taste gelangt man wieder in das Haupt- 
menü. 


3. Kreisdiagramm 


Das Kreisdiagramm stellt Prozentzahlen als Segmente 
eines aufgesprengten Vollkreises dar. 

Auf eine kurze Einleitung folgt die Eingabe der unter 
2. beschriebenen Punkte, wobei die Angabe der Maß- 
einheit entfällt. Es können bis zu sechs Prozentzah- 
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DIAGRAMM 


len und deren Bezeichnungen eingegeben werden. Die 18 rem diagramn=====<====-----===p4 <p1> 
Summe der Prozentangaben darf 100 Prozent nicht 28 rem (p) cammodore welt team <ho> 
überschreiten, sonst Bun Bach Sala Sgegeben WET- 38 rem =========================== cong> 
den. Angaben kleiner als 5 Prozent sollten vermieden aD ) by h i ; ; 
werden, da sonst Fehler in der Grafik auftreten kön- 5a 2. a a: Br 
nen. Nach Abschluß der Eingaben wird das Bild er- 68 . p 
stellt. Die Segmente werden umrissen und ausgefüllt. rem basic v3.5 <od> 
Die Prozentangaben erscheinen neben dem jeweili- 7@ rem plus4-(c16/116 + 64 kb) <cd> 
gen Kreisausschnitt, die Bezeichnungen in den unte- 88 rem Floppy <ak> 
ren Bildschirmzeilen. Auch hier wird nach dem Drük- 90 rem ==>=======>====2 == 2 === 2 =2=eme2 > <jg> 
ken einer Taste wieder in das Hauptmenü gesprungen. 180 gosub2398:rem maschinencode erh 
4. x-y-Diagramm in Tr <ip> 
8: 398 ; R E h t 
Mit diesem Diagramm kann der Verlauf eines bestimm- 138 DE ARABES “per 
ten Zahlenwertes über der Zeit (ein Jahr) aufgezeigt Br +13? 
werden. Die x-Achse ist die Zeitachse. Sie umfaßt ein 148 senelr:clIr:gosub2558:color®, 1: 
an en a anain. Die DB kann color4,1:color1,7,5 <no> 
mit einer beliebigen Maßeinheit belegt werden. Die R ee 
einzelnen Zahlenwerte dürfen nicht mehr als fünf Stel- IHR Bimpt 12) SREREEL = r u 
len umfassen. 168 charl1,11,8,rn$+"diagram 
Nach einer kurzen Einleitung erfolgen die bereits be- m e"+rf$ <be> 
schriebenen Eingaben, wobei den einzelnen Werten 178 char1,11,3,"1.demos.......... e 
hier keine Bezeichnung mehr zugeordnet wird. :char1,11,5,"2.balkendiagramm.” <od> 


Zunächst werden die Achsen gezeichnet und beschrif- 


tet. Die y-Achse ist immer in sechs Abschnitte unter- TER ERAFR TET, BRFSTSERTEN 


teilt. Anhand des maximalen eingegebenen Zahlenwer- :char1,11,9, 4. SYELNZFONM. .- <jn> 

tes wird die Achsenbeschriftung berechnet, wobei ge- 198 char1,11,11,"5.1laden/speichern 

ringfügige Rundungsfehler auftreten. Werte mit mehr ":char1,11,13,"6.programmende...” <eh> 

als drei Stellen werden durch Division ‚‚verkürzt‘“. Der 288 char1.7.17."bitte waehlen sie 

entsprechende Faktor für die Maßeinheit wird mit an- Le De <ei> 

gezeigt. AS ee wor 

Anschließend wird die Kurve als Verbindungslinie von 218 getas:ifag>"Mrandas<”"7"then?2E 

Wert zu Wert gezeichnet. Die Kurve wird zur Verdeut- :else218 stk? 

lichung in dreifacher Breite erstellt. Ein Tastendruck 228 onval(a$)goto268,559,838, 1258, 

führt zurück in das Hauptmenü. 1968, 1678 <km> 
; 238 rem --------------- <hl> 

5. Laden/Speichern 248 rem demo-untermenue <ik> 

Es wird das folgende Untermenü angesprungen: 258 rem --------------- <ff> 

5 a ö 268 scencelr:char1,11,8,rn$+b3$+"d e 

3. edlen m co s"+b4$trf$:char1,15,2,b63$+"zu 

4. Hauptmenü <fi> 

Punkt 1. zeigt lediglich den Inhalt der eingelegten Dis- 278 char1,11,4,"1.balkendiagramm”: 

Koite, U die Suche nach bestimmten Grafiken zu char1,11,6,"?.kreisdiagramm.” <ji> 

erleichtern. ” a „. 

Mit Punkt 2. kann das Diagramm im Grafikspeicher an Earl; u ‚Bd; Er GIRgTABN: SE 

auf Diskette abgespeichert werden. Dazu wird zu- char1,7,15,"bitte waehlen sie (1-3 

nächst die vorhandene Grafik kurz eingeblendet. Es er- R'E® <gp? 

folgt die Abfrage, ob gespeichert werden soll. J führt 29a geta$: ifa$>"O"anda$<"4"then3Ad 

A une ei anderen een, be- -else?99 <dk> 

wirken den Rücksprung in das Untermenü. Der File- n na N 

name darf bis zu 15 Zeichen lang sein. Durch einen 3ER GHRUAIEAS) EREESAB, ZUR, 950 ul 

SYS-Befehl wird die Maschinenroutine zum Spei- a “mg? 

chern aufgerufen. Es wird der Bereich von 1800 bis 3282 rem demo balkendiagramm <gn> 

3FFF (hex) gespeichert, damit auch die Helligkeits- 338 rem ------------------- <ob> 

und Farbinformationen erhalten bleiben. Nach Been- 340 c=6:d$="ausgaben im monat deze 

digung des Speichervorganges springt das Programm han": ="dm" 

zurück in das Untermenü. Ele mu eg Ta 

Mit Punkt 3. können auf diese Weise abgespeicherte 358 p$C1)="miete":p[ 1)=825.30:p$l2 

Grafiken wieder eingeladen werden. Zuvor wird das J)="strom":p(2)=78.00:p$(5)="auto": 

a N En des HERREN) ANEEESSN, p$( 6) ="hobby” <mc> 

ährend des Lad&vorganges ist der Bildschirm abge- " ”. = . 

schaltet. Wer den Aufbau der Grafik verfolgen will, e e Ben 7 a 5. a z > ae 

muß die beiden POKE-Befehle in Zeile 2360 entfer- "P er i 

nen. Die eingelesene Grafik kann nun betrachtet wer- 20:p(6)=128 <hl> 

den. Der Rücksprung zum Untermenü erfolgt durch 378 gato698 <pe> 

Druck einer Taste. 388 rem ------------------ <kn> 

Puntk 4. bewirkt den Rücksprung in das Hauptmenü. 398 rem demo kreisdiagramm <ih> 


Bitte lesen Sie weiter auf Seite 46 
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An rem = 

418 c=6:d$="ausgaben im 1.halbjahr 
1988” 

420 p$[1)="kKleidung”:pl 1)=6.8:p$([2 
="auto":p[2)=14.4:p$(3)="noebelka 

“ uf":p(3)=21.5 

439 p$LA)="hobby”":pl4)=15.3:p$[5)= 
"haushalt”:p(5)=22.5:p$(6)="sonsti 
ges":p(6)=19.5 

448 g0t0998 

A560. rel -- rennen 

468 rem demo x-y-diagramm 

430 ren = 

488 c=12:d$="krankheitskosten 1988 
":me$="dm" 

498 pl 1)=76:p( 2) =54:p( 3) =28:p(4)=2 
1:p(5)=18:p(6)=5 

5a0 pL7)=66:pl8)=19:pl9)=12:pl 18) = 

7:p( 11)=19:p( 12) =32 

518 goto1438 

528 rem -------------- 

538 rem balkendiagramm 

54R rem -------------- 

558 scenelr:printrn$"b alkend 
ijagramım"rf$ 

568 printc4$”das balkendiagramm st 

ellt bis zu sechs" 

578 print”verschiedene zahlenwerte 
grafisch dar." 

580 print"die eingabe kann in beli 

ebiger massein- " 

598 print"heit erfolgen." 

688 printc4$c4$c4$"bitte ueberschr 
ift der grafik eingeben !” 

618 print"(nicht laenger als 4B ze 
ichen) !":inputd$ 

628 iflen( d$) >48then558 

638 printc4$c4$”"in welcher massein 

heit soll dargestellt":print"werde 

n"”; :inputme$ 

640 char1,8,18,"wieviele balken (1 

-6) ":inputc$ 

65R ifc$<"7"andc$>"B"thenäßß:else6 

48 

668 c=vallc$) :scnelr 

678 fori=Itoc:print"eingabe ";i; 
wert"b3$b4$; :inputp(i) 

688 print"fuer (bezeichnung) "b3$b3 

$; :inputp${ 1) :nexti 

698 gusub 1728 

788 graphic1,1 

718 fori=1toc:color1,2+i1,4 

728 box1,i*48-48, 168-pr(i),i*48-24 
‚168 

730 draw1,i*48-24,168to0i*48-12, 168 
toi*48-12,168-pr(i)toi*48-24,168-p 

r(i) 

748 draw1,i*4B-24,168-pr(i)toi*48- 


<co> 


12, 169-pr(i)toi*48-36, 169-prli)toi 

=48-48, 168-pr(i) 

750 paint1,i*48-45, 167,1 

768 nexti:colori,2:z=1 

778 Fori=1toc:chari,(i-1)*6,5+tz,st 

r$(p(li)):chari,(i-1)*6,23+z,p$(i): 
z=-z:nexti 

788 gosub1818:g0sub 1878 

798 getkeyw$:graphicd:goto148 

BAR rem ------------- 

818 rem kreisdiagramm 

828 rem ------------- 

838 scenclr:char1,8,ß8,rn$+"kreiüi 
sdiagramm "+rf$:print 

848 printce4$c4$"das kreisdiagramm 
stellt bis zu sechs" 

858 print”prozentwerte als teile e 
ines vollkreises" 

8658 print"dar. die summe der werte 
darf 189% nicht” 

878 print"ueberschreiten !" 

BEA print"eingaben unter 5% sollte 
n vermieden":print"”werden !!!" 

898 char1,8,18,"bitte ueberschrift 
der grafik eingeben !" 

988 char1,8,11,"Cnicht laenger als 
48 zeichen) !":prinkt:inputd$ 

giR iflen(d$) >4Gthend3d 

928 chari,8,14,"wieviele prozentwe 
rte (1-6) ":inputc$ 

939 ifc$>"R"andce$<"7"then94d:elseg 
28 

948 c=vallc$) :scnelr 

958 fori=1toc:print."eingabe ";i;" 
prozentwert ";:inputp(i) 

968 print."fuer (bezeichnung) "b3$b4 
$; :inputp$(i) :nexti:su=® 

978 Fori=Itoc:su=sutp(i) :nexti 

988 ifsu> iNßRthen94Q 

998 Ffori=1toe:pr(i)=int((pli)*3.6) 
+.5):nexti 


48088 graphic1,1:color?,8,5 


1M1A r=69:su=d:x=160:y=-1RA: locatex 


1829 fori=1toc 

aaa locate9;(su+pr(i)/2):xx=rdot( 
8) :yy=rdot( 1) :cirelel,xx,yy,r,r,su 
‚sutpr(i) 

ıaaA drawtaoxx,yy:drawkLor; su:su=sut 
pr(i) 

1958 locatex,y:locate3®;(su-pr(i)/ 
2) :paint 

1868 locatex,y:nexti 

1878 colori,2:gosub1B1® 

1858 su=® 

1898 fori=itoc:locatex,y:locater+2 
5;(su+pr(i)/2) 

11aA xz=int( rdat( 8) /B) ;yz=int(rdot 
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(1)/8) :su=ssu+pr(i) :ifyz<2thenyz=2 
1118 ifyz>21ithenyz=21 

1128 ifyz<2landxz<19thenxz=xz-len( 
str$(pli)))-3 

1138 color1,3,6 

1148 charl,xz,yz,str$(i)+":"+str$( 
pli))+"%":nexti . 

1158 color1,2:fori=-8t039:char1,i,2 
2,"C":nexti 

1168 color1,7,6 

1178 ifc>3thenfori=1to3:elsefori=1 
toc j 
1188 char1,(i-1)*13,23,str$li)+":" 
+p$(i) :nexti 

1198 ife>3thenfori=Atoc:else1218 
1288 chari,(i-4)*13,24,str$(li)+":" 
+p$li)}:nexti 

1218 getkeyw$:graphicd:got:o148 
1228 rem 
1238 
1248 
1258 


rem 
scnelr:char1,8,8,rn$+"x - y - 
diagramm "+rf$ 

1269 print:printc4$c4$"das x-y-dia 

gramm stellt bis zu zwoelf"” 

1278 print”zahlenwerte dar. die y- 

achse ist die" 

1288 print"zeitächse, die in die z 

woelf monate" 

1298 print"unterteilt ist. " 

13088 print"die x-achse kann mit ei 
ner beliebigen" 

1318 print"masseinheit belegt werd 
en. sie wird" 

1328 print"grundsaetzlich in sechs 
sbschnitte auf-" 

1330 print"geteilt, wobei der maxi 

malwert zwischen” 

1348 print"® und 99999 liegen kann 


1358 char1,9,14,"bitte ueberschrif 
t der grafik eingeben !” 

1368 char1,8,15,"(nicht laenger al 
s 48 zeichen) !":print:inputd$ 
1378 iflen( d$) >4@then1258 

13890 printc4$c4$”in welcher 'massei 
nheit soll dargestellt":print"werd 
en"; :inputme$ 

1399 char1,8,23,"wieviele werte (2 
-12)":inputc$ 

1488 ifval(c$)>1andvall(c$)<13then! 
418:else1398 : 

1418 c=val(c$) :scenclr 

1428 fori=1toc:print"eingabe 
. wert"; :inputp(i):print:nexti 
1438 gosub 1728 

1448 z=1:ux=48:uy=168:restore 1958 
1458 graphic1,1:locateux,uy:color! 


1; 


<pk> 
<nc> 


<on> 
<eg> 


<gh> 


<co> 
<np> 


<jk> 


<dp> 
<kj> 


<xef> 
<kh> 
<ab> 
<xok> 
<oi> 
<bo> 
<ib> 


<ol> 


<gp> 
<bg> 


<1lm> 
<ej? 


<on? 
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‚8,5:4rawto328, uy: lucateux, 169:dra 
wtoux,56 

1468 fori=1t012:1locate2B+i*24, 160: 
drawto2; 8104; 188 

1478 reada$:chari,({rdot( 8) -24)/8) 
+1,22+z,a$:z=-z:nexti 

1488 fori=1t06:locateux,uy-(i*#16): 
drawt02;270t04;98:nexti 

14990 pm=pm*108 

1588 ifpm<188Bandpm>Bthenmu=1 

1518 ifpm<1288Bandpm>=1ABßAthenmu=. 
1:me$=me$+"” * 18” 

1528 ifpm>=19B@8dthenmu=.91:me$=me$ 
+" * 100" 

1539 ps=int( pm*mu/6) 

1548 fori=1t06:pa=(7-i)*ps:char1,B 
‚1*2+6,str$(pa) 

15580 nexti 

1560 color1,3,5 


1578 gosub16RA:r=1:gosub16AR: gousub 
1698 :r=-2:gosub 1648: gosub 16A8 

1588 color1,2:gosub18B1A:gosub1878 
1599 getkeyw$:graphich:guto14d 
1688 locate52, 16B-prl 1) 

1618 fori=2toc 

1678 xp=[ ?8+i1*24) :drawtoxp, 16B-pri{ 
i):nexti 

1638 return 

1648 fori=itoc:pr(i)=pr(i)-r 

1658 ifpr(i)<@dthenpr(i)=® 

1668 nexti:return 

1670 rem Fr 

168 rem programmende 

1698 rem ----- 7-77 

1788 scnclr:color1,8,7:char1,2,12, 


"programm wirklich beenden (j/n) ? 
3” 

1718 getkeyw$:ifw$="j"thensys65529 
:else148 
1728 rem 
1738 
1748 rem 
1758 pm=B® 
1768 fori=itoc:ifpli)>pmthenpmspli 
) 
1778 
1788 
1798 
+.8) 
18809 
1818 
1828 
Ar 
1838 
1848 
‚a,d$ 


nexti 

pm=pın/ 188 
fori=1toc:pr(i)=int((pli)/pm) 
:nexti 

return 

rem 


d=int((48-1en(d$))/2) :chari,d 


<fn> 
<km> 
<ae> 


<kp> 
<bl> 
<bp> 


<cc> 


<fc> 
<dk> 


<hf> 
<jo> 
<ck> 


<bh> 
<pg? 
<no> 
<dk> 
<kb> 


<kn> 
<fg> 
<oga> 
<ej? 
<gd> 
<ck> 
<bd> 
<lc> 


<gk>? 
<dn> 
<up?> 
<pi> 
<ck> 
<ba> 
<ma> 
<ap?> 


<nb> 


<pd> 
<km> 


<io> 
<of> 
<jl> 


<mf> 
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1858 fori=8t039:char1,i,1,"C":next 
i 
1868 
1878 
1888 
1898 rem -------------------- -- 
1984 maf=-"angaben in "+me$:mesint( 
(48-1l1en{ma$)) /2) :chari,me,2,ma$ 
1918 return 

1928 rem ----- 

1938 
1949 rem ----- 

1958 data jan,feb,mae,apr,mai, jun, 
jul,aug,sep,okt,nov,dez 

19609 rem ---------------- = 


return 
rem ------ - ren nn 


1978 rem untermenue laden/speicher 
n 

1980 rem Feen 
1998 sencelr:char1,12,8,rn$+t"laden/ 
speichern"+rf$ 

2RBR charı,12,3,"1.directory...."”: 
char1,12,5,"2.speichern...." 

281® charı1,12,7,"3.laden........ - 
char1,12,9,"4.hauptmenue..."” 

2828 char1,7,17,"bitte waehlen sie 
(1-4) !" 

2838 geta$:ifa$>"B"anda$<"5"then?28 
48:else29838 

2848 onvalf( a$)goto205®B, 2998, 2228, 1 


ven 


Lem; 
scnelr:direetory:printc4$"wei 
ter mit beliebiger taste !":getkey 
w$:g0t01968 

2898 rem --------- 


2118 rem --------- 

2128 scnelr:print"”zur zeit befinde 
t sich die folgende":print"grafik 
im speicher:" 

2138 fori=1t028%®:nexti 

2148 graphicl:fori=1t0o3@@%d:nexti:g 
raphicd 

2150 printc4$c4$c4$"”speichern (j/n 
) ?2";:getkeyw$:print” "+w$ 

2168 ifw$="j"then?2179:else1968 
2178 char1,8,12,"name der grafik "” 
:inputna$ 

2188 iflen(na$)>15then2178 

2198 iflen(na$) <15thenfort=1len(na$ 
J)to15:na$=na$+" ":nextt 

2298 fori=1815t01938:pokei,asc(mid 
$(na$,i-1814,1)) :nexti 

2218 sys818:goL01968 


<ib> 
<ce> 
<db> 
<1ld> 
<jm> 
<ko> 
<ii> 
<ee> 
<mj> 
<ep> 
<ag> 
<be> 
<de> 
<ni> 
<do> 
<ah> 
<dd> 
<kl> 
<bf> 


<ac> 
<op> 
<kf> 
<lm> 


<ji> 
<ap> 
<nj> 
<cc> 


<con> 
<ec> 
<ok> 


<le> 
<jk> 


<1In> 
<jh> 


<jf> 


<bi> 
<fo> 
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2228 
2238 
2248 rem ----- 

2258 scnelr:print"mit dieser routi 
ne koennen sie grafiken” 

2269 print"laden, die auf der eing 
elegten diskette" 

2279 print"gespeichert sind.":prin 
t"zunaechst erscheint die director 


y. 

2288 print”anschliessend ist der n 

ame der ge-":print"wuenschtien graf 
ik einzugeben." 

2298 print"danach wird die grafik 
eingelesen. sie” 

2308 print”"kann nun betrachtet wer 
den.” 

2318 print”durch druck einer taste 
gelangt man wie-" 

2328 print"der in das untermenue 
laden/speichern’.” 

2330 char1,89,24,"bitte taste drue 
cken !":getkeyw$ 


Bossensenge 


’ 


2348 senelr:directory:print:input” 
name der grafik";na$ 

2358 iflen(na$)>15then2340 

23690 iflen( na$) <15thenfort=1len(na$ 


)to15:na$=na$+” ":nextt 

2378 fori=1815t0183@:pokei,asc[mid 
$Cna$,i-1814,1)) :nexti 

2388 graphic1:poke65286, 11:sysB54: 
poke65286,27:getkeyw$:graphicd:got 
01968 
2398 
2488 
2418. rem — en 
2428 restore?488 

2438 fori=818t0877 

2448 readms$ 

2458 pokei,dec{ms$) 

2460 nexti 

2478 return 

2488 data 39,81,32,88,40,88,20,ba, 
ff,a9 
2498 data 
a2,88 
25808 data 
a2,ff 
2518 data 
2528 data 
ff,a9 
2538 data Qf,a2,f7,a0,83,20,bd,ff, 
39,88 
2548 data 
2558 rem nachspann 
2568 rem * farbceodes/steuercodes * 
2578 c4$=chr$( 817) :rn$=chr$( 8186) 
258RA rf$=chr$( 146) :b$=chr$( 32) 


3 21 1 Wie I ee ne 


Of ,a2,77,30,03,20,bd,ff, 
a@,18,86,d8,84,d9,a9,dB, 


aß,3f,20,u8,ff,68 
a9,01,4?,08,a0,01,2@,ba, 


20,d5,ff,68 


<if> 
<db> 
<he> 


<eh> 


<oc> 


<pm> 


<pk> 
<pl> 
<im> 
<gb> 
<gl> 
<og> 


<mf> 
<ok> 


<kf> 


<fn> 


<ch> 
<kl> 
<ni> 
<gl> 
<gl> 
<jo> 
<ff> 
<ee> 
<oe> 
<on> 


<bf> 
<ek> 


<hm> 
<ac> 


<hf> 


<hb> 
<jf> 
<hl> 
<ao> 
<kd> 
<eh> 
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2599 b3$=b$+b$+b$:b4$=b3$+b$ <gg> 
2688 return <pc> 
2619 rem diagramm===============94 <nd> 
2628 rem 69671 bytes memory <la> 
2638 rem 884856 bytes program <jk> 
2648 rem A8949 bytes variables <be> 
2658 rem 88144 bytes arrays <fb> 
2668 rem AA338 bytes strings <li> 
2678 rem 12288 bytes graphic <oh> 
2688 rem 39444 bytes free (®) <jc> 
2690 rem ========================= (jd> 
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Fortsetzung von Seite 42 
6. Programmende 


Nach einer Sicherheitsabfrage wird das Programm 
durch einen Software-Reset gelöscht. Der Grafikspei- 
cher bleibt erhalten. 


Unter Verwendung eines Druckers und einer Hard- 
copy-Routine (wie die Hires-Hardcopy aus C16-P4 
SPECIALNT. 1) lassen sich die erstellten Diagramme 
natürlich auch zu Papier bringen. 

Henning Koglin Ü 


INTER-COPY 


Von Kassette 
auf 
Diskette 


Wer sich eine Diskettenstation angeschafft hat, 
würde seine Software, die sich noch auf Kassetten be- 
findet, gerne auf das neue Speichermedium kopieren. 

Autostart und Kopierschutz vereiteln jedoch dieses 
Vorhaben, In den meisten Fällen kann 
Inter-Copy helfen. 


Wenn das zu kopierende Programm sich mit dem 
Speicherplatz eines nicht erweiterten C16 begnügt, 
nach dem Laden den Interrupt wieder zuläßt und 
beim Laden weder den Interruptvektor verbiegt noch 
das ROM einschaltet, steht dem Kopieren von Kasset- 
te auf Diskette nichts mehr im Wege. 

Das Programm Inter-Copy wartet darauf, daß nach 
dem Ladevorgang der Interrupt wieder zugelassen 
wird. Sobald das geschehen ist, werden sofort inner- 
halb eines Interruptes der ganze Bereich von $0000 
bis $OFFF sowie die Ted-Register in einen anderen 
Speicherbereich verschoben und ein Reset ausgeführt. 
Das Programm startet also nicht automatisch. Um ein 
so abgebrochenes Programm wieder zum Laufen zu 
bringen, wird nicht die Startadresse gebraucht, son- 
dern der Stackpointer. Man muß also außer dem ei- 


Bitte lesen Sie weiter auf Seite 48 
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18 rem intercopy=====>======-=-====p4 
28 rem (p) commodore welt team 

30 rem ================ === 
48 rem (c) by martin schulz 

Sü.rem 

68 rem basic v3.5 

78 rem plus4 (c16/116 + 64kb) 

88 rem Floppy und datasette 

98 rem ================== === 
188 fori=312t0348 

118 reada:pokei,a:next 

128 data 281,913,288,003,876,075 
130 data 236, 134,288,041,815, 178 
148 data 165,289,872,165,218,133 
158 data 209, 104,133,210,032,875 
168 data 236,202,288,258, 166,288 
170 data 924,096,9024,096,876,875 
188 data 236 

198 color4,6,4:color®,7,6 

288 scnclr:print:print:print 

218 poke289,32:poke21®, 166 

228 poke884,56:poke8B5, 1 

238 print"”adcbbbbfbfbe” 

248 print"bbdcabdbdbfbhb"” 

258 print"bbdfdbdbfbbb” 

268 print"bbdfdbddde" 

27a print"bbdbacdbdbfd” 

288 print"bbdbbbdbdhfbab" 


print”adcebbbdbdfbbbh" 
print:print:print 
print"ddddcecbbb" 
print"cbbbbbbbbbbbbbbb" 
print”cbfbbbbbbbbbbb" 
print"cbfbbbbedd" 
print"cbfbbbbbhb" 
print"cbbbbbbbbbhb" 
print"ddddebhb” 
poke884,75:poke885, 236 
print:print:print:print 

ABB print" druecken sie die sp 
ace-taste 
418 getkey a$:print:print:print 


428 print" inter-copy ist ein pro 
gramm, das es":print 
438 print” ermoeglicht, c16-progr 


amme mit auto-":print 
448 print” start von kassette auf 
diskette zu”:print 


458 print” uebertragen. hierzu er 
forderlich ist"”:print 

468 print” ein c16 mit 64 kb.-erw 
eiterung oder":print 

478 print” ein plus 4. da es vers 
chiedene"”:print 

488 print” moeglichkeiten des kop 
ierschutzes":print 

498 print” gibt, gelingt diese ar 


t des kopierens":print 


*oj? 
<ho> 
<ng> 
<me> 
<pd> 
<od> 
<xcd> 
<hh> 
<jg> 
<bi> 
<ne> 
<oc> 
<im> 
<ko> 
<co> 
<ba> 
<dm> 
<mi> 
<ia> 
<fm> 
<ei> 
<mk> 
<bf> 
<ah> 
<bh> 
<he> 
<eh> 
<di> 
<dm> 
<hm> 
<gg? 
<1k> 
<dh> 
<np> 
<bd> 
<al> 
<cm? 
<cl> 
<fa> 


<kh> 
<gg> 


<pc> 
<di> 
<ha> 
<nn> 
<gce> 
<dn> 
<ob> 


<cg> 
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588 print" nicht bei jedem progra 
mm. auch dort,":print 
518 print" wo programmteile von k 


assette nachge-":print 

528 print” laden werden, ist inte 
r-copy nur"”:print 

530 getkey a$ 

548 print" bedingt anwendbar. der 
vorteil bei":print 

558 print” inter-copy liegt darin 
‚ dass die”:print 

568 print" startäadresse eines pra 

grammes nicht" :print 

578 print” mehr gebraucht wird. w 
enn sie gleich":print 

588 print" die space-taste drueck 
en, wird der":print 

598 print” bildschirm geloescht u 
nd die ein-":print 

608 print” schaltmeldung erschein 
t:":print 

618 print" inter-copy 1227 
7 bytes free":print 

628 print" inter-copy ist dann ak 
tiviert.":print 


638 print” bevor sie nun ein prog 
ramm kopieren, ":print 
648 print” laden sie es einmal zu 


r probe und”:print 
658 getkey a$ 


668 print" merken sie sich den st 
and des band-":print 

678 print" zaehlwerkes, nachdem e 
s geladen ist!":print 
688 print” nun koennen sie die fo 
lgenden" :print 

698 print” programmschritte zum k 
opieren eines"”:print 

788 print” programmes anwenden. b 
evor sie das"”:print 

718 print” tun, notieren sie sich 


diese bitte !":print 
728 print 
7308 print”1. laden sie inter-copy 
und starten es.":getkey a$:print 
748 print"2. laden sie das zu k 


opierende"” 

758 print” programm von kasse 
tte.":print 

768 print"”3. kurz bevor der lad 
evorgang” 

778 print” abgeschlossen ist, (1- 
2 nummern des" 

788 print" bandzaehlwerkes vorher 


), druecken sie" 

798 print” die tasten shift und a 
gleichzeitig" 

888 print” und halten diese gedru 


<hc> 
<pd> 


<mj?> 
<ni> 


<cp> 
<1k> 
<do> 
<mb> 
<fl> 
<be> 
<1p> 
<fg> 
<fj> 
<el> 


<db> 
<fo> 


<cd> 
<ek> 
<bd> 
<jj> 
<bi> 


<ce> 
<do> 


<di> 
<eg> 
<on> 
<ge> 
<lp> 
<kh> 


<jl> 


eckt, bis der" 

818 print” ladevorgang beendet is 
t.”:print 

828 print"”4. 
fehl monitor" 
838 print” ein und druecken sie d 
ie return-taste."” 

848 print” speichern sie nun das 
programm mit” 

858 print" s"chr$( 34) "programmnam 
e"chr$( 34)” ,8, 1008, 5960"” 

868 print" auf diskette ab.":prin 
t 

878 print"S. 

en computer aus” 


geben sie nun den be 


schalten sie nun d 


888 print” und wieder an. geben s 
ie den befehl” 

898 print" monitor ein und drue 
cken die return-" 

988 print" taste. laden sie das s 
oeben abge-" 

918 print” speicherte programm mi 
kr . 

928 print” 1”chr$( 34)" programmna 


me”"chr$( 34)"”,8 und starten sie” 

938 print" es mit g 5a00” 

9A getkey a$:scnclr:char, 13,4,"mo 
ment bitte !"” 

9598 char,?7,6,"inter-copy wird akti 
viert !” 

968 for i=B to 433 

978 read x:poke 2948B+i,x 

988 next:sys dec( "583c") 

998 data 129,169,8,185,0,64,153,8 

1088 data 8,200,208,247,238,5,80,2 
38 

1818 data 8,80,173,8,88,281,16,288 
1228 data 234,185,64,88,153,8,255, 
208 

1838 data 192,32,208,245,173,68,88 


104® data 8,16, 173,61,88,141,1,16 
1050 data 173,62,88,141,2,16,162,2 


1060 data 154,76,195,252,120,160,8 
1070 data 8,128,153,0,128,200,208, 
1080 data 238,65,80,238,68,88, 173, 
1090 data 80,201,253,208,234,160,1 
1100 data 63,255, 153,63,255, 136,20 
8,247 

1110 data 169,63,32, 180,88, 141,63, 
255 


1120 data 169,76, 141,14,206, 169,23 
3,131 


<oo> 
<hg> 
<eh> 
<ln> 
<kg> 
<lb> 
<pa> 
<dl> 
<ke> 
<dm> 
<fj> 
<pb> 


<ma> 
<hm> 


<ec> 
<hk> 
<bg> 
<hm> 
<lc> 


<ej?> 


<ng> 
<ho> 


<cg> 


<hf> 
<dc> 


<cn> 
<no> 
<pd> 
<mj? 
<cj? 
<gh> 
<fa> 


<hce> 
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1138 data 
‚168 

1148 data 
3,136 
1158 data 
6,232 
1168 data 
288 

1178 data 
9,0 

1188 data 
68 

1198 data 
77,208 
1288 data 
In 
1218 
‚141 
1228 data 
47,255 
1238 data 
172 

1248 data 
1 

1258 data 
4 

1268 data 
76 

1278 data 
286 

1288 data. 
1298 data 
8,111 

1388 data 
42,55 
1318 
1328 
238 
1338 data 
1348 data 
208 

1358 data 


data 


data 
data 


1368 data 


1378 data 
1388 data 


1398 data 
1488 data 
1418 data 
data 
data 


data 


15,206, 169,88, 141, 16,286 
10,185, 245,255, 153, 245,6 
208,247,76,143,81,162,12 
240,24,189,8,68, 281,177, 
246,232,232,232,16,12,18 
68,201,63,208,234,222,8, 
208,229,173,222,71,201,1 
10,173,225,71,281,63,288 
206,225,71,96, 141,58, 129 
78,129, 141,187,207,141,2 
141,130,4,141,158,4,141, 
4,141,183,4,141,194,4,14 
205,4, 141,216,4,141,227, 
141,225,7,96,141,63,255, 
66,206, 141,63,255,76,14, 


3,169,0,141,48,253, 141,8 
255,173,8,255,201,123,28 


173,232,80,248, 186,186, 1 


80,160,0,185,0,8,153,8 
64,200,208,247,238,5,81, 


8,81,173,5,81,201, 16,288 
234,185,0,255,153,64,8®, 


192,32,208,245, 169,0, 141 
80,169,62,32,188,80, 169, 


141,19,3,141,21,3,141,19 
67,141,21,67,169,66,141, 


3,141, 18,67, 169,14, 141,2 
3,141,28,67,173,8,16,141 
60,88,173,1,16,141,61,88 
173,2,16,141,62,80,32,13 
80,141,62,255,76, 164,242 


19,3,281,206,208, 10,169, 


<en> 
<do> 
<pk> 
<mo> 
<mj? 
<ea> 
<eo> 
<pl> 
<jf> 
<k1> 
<jk> 
<ij> 
<hi> 
<bl> 


<jn> 
<ed> 


<ef> 


<mg> 
<mf> 


<ef> 
<mp> 


<kd> 
<of> 


<lo> 
<md> 


<ao> 
<ho> 
<md> 
<po> 
<ij> 
<ae> 


<lo> 


1458 data 141,19,3,169,228,141,18, 
3 <ik?> 


1468 data 173,21,3,201,206,298,1®, 
169 <gk> 
1478 data 88, 141,21,3,169,226,141, 
28 j <je> 
1488 data 3,173,9,255,76, 17,286, 16 
8 <na> 
1498 data 28,185, 157,81,153,287,12 
8,136 <ci> 
1588 data 16,247,76,164,242,32,32, 
32 <mj> 
1518 data 32,73,78,84,69,82,45,67 <mf> 
1528 data 79,808,89,32,32,32,32,32, 
32,32 <fk> 
15308 rem =========-===2== === =====2= Cge> 
1540 rem programmende <ie> 
1558 rem ==>======================= Cop 
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Fortsetzung von Seite 46 


gentlichen Programm den kopierten Bereich $0000 
bis $OFFF (jetzt $4000 bis $4FFF) und das Startpro- 
EERDN mit dem Stackpointer auf Diskette abspei- 
chern. 

Man kann das Programm nun von Diskette laden und 
vom Monitor aus mit G5000 starten. Als Beweis, daß 
dies funktioniert, habe ich das Programm „‚Atlantis“ 
auf diese Weise auf Diskette abgespeichert. 

Es ist durch einen Reset nicht zu stoppen. Da ich die 
Interruptroutine erweitern mußte, habe ich das ganze 
ROM ins RAM kopiert. Die Erklärung zu Inter-Copy 
habe ich mit ins Programm eingebaut. Das eigentliche 
Programm beginnt mit Zeile 960. 


Zur Anwendung: 

1. Inter-Copy laden und starten. Programm von Kas- 
sette laden. 

2. Kurz vor Abschluß des Ladevorganges die Tasten 
Shift und A drücken und gedrückt halten, bis ein 
Reset ausgeführt wird. 

3. Programm vom Monitor abspeichern mit 
S“Programmname‘“ ,8,1000,5060. 

4. Programm vom Monitor aus laden mit 
L‘“Programmname‘“,8 und starten mit G5000. D 


NIEREN |LISTINGSE 


SPIELHÖLLE 


Gewinnen 
Sie das 
große Geld 


Laden Sie Freunde ein, um mit ihnen gemeinsam 
in der Spielhölle das Glück zu versuchen. Nach den 
Einsätzen rollt der Würfel und entscheidet über 
Gewinn oder Verlust. 


Versuchen Sie Ihr Glück in der Spielhölle, die Ihr 
Commodore Plus/4 für Sie aufbaut. Auch Besitzer ei- 
nes C16/116 können das Programm benutzen, es 
läuft auch auf diesen Rechnern. 

Holen Sie Ihre Freunde zusammen und laden Sie zu ei- 
nem Besuch in der Spielhölle ein. Außer dem Bankhal- 
ter können bis zu sieben Spieler teilnehmen. Je mehr, 
desto besser. 

Nach dem Start erscheint der Titel des Spieles, dann 
wird nach der Anzahl der Mitspieler gefragt. Geben 
Sie die Zahl aller Wetter an, aber zählen Sie den Bank- 
halter nicht mit. Als nächstes will der Computer die 
Namen der Mitspielenden wissen. Hier geben Sie je- 
weils zwei Buchstaben ein, mehr braucht der Compu- 
ter nicht zu speichern. 

Jetzt wird das Spielfeld aufgebaut und der erste Spie- 
ler kann seinen Einsatz wagen. Dazu benutzt er die 
Cursortasten, um den blinkenden Cursor auf einem 
Feld seiner Wahl zu plazieren. Daraufhin gibt eine 
Ziffer von eins bis neun die Höhe des Einsatzes be- 
kannt. Dieser wird gespeichert und der Spieler kann 
weitere Felder setzen. Es ist aber nicht möglich, daß 
er ein von ihm bereits gesetztes Feld nochmals belegt. 
Hat er genug gesetzt, gibt er das durch Eingabe der 
Ziffer Null bekannt. Darauf wird der nächste Spieler 
zur Eingabe seiner Wetten aufgefordert. 

Wenn der letzte Spieler seine Einsätze getätigt hat, ist 
die Reihe wieder am ersten und so geht es weiter, bis 
keiner mehr etwas setzen will. Dies wird durch Druck 
auf die Taste PFEIL HOCH (? ) angezeigt. 

Im unteren Feld sind in der Reihe EIN die Einsätze 
aller Spieler rot angezeigt. Oben rechts steht die Sum- 
me, die an die Bank zu zahlen ist. Diese Zahl wird. 
ständig auf dem aktuellen Wert gehalten. Die restli- 
chen Felder des unteren Tableaus enthalten noch 
Nullen, denn bisher hat sich ja noch nicht viel getan. 
Es wird in drei Runden gespielt. An der rechten Seite 
erscheinen drei Würfel, die nacheinander geworfen 
werden. Sobald sie zur Ruhe kommen, werden die Ge- 
winne der einzelnen Spieler errechnet und ausgezahlt. 
Dabei wird nach folgendem Schema vorgegangen: In 
der obersten Reihe wird gewonnen, wenn die drei 
Würfel die gleiche Augenzahl zeigen. In den ersten 
zwei Runden wird der Einsatz 50fach, in der dritten 
Runde sogar 100fach ausgezahlt. Haben Sie zum Bei- 
spiel die Fünf auf das Feld 333 gesetzt und die drei 


Würfel zeigen dies auch an, so werden Ihnen 250, in 
der dritten Runde 500 Punkte ausgezahlt. Sie kön- 
nen sich an Steile der Punkte auch Pfennige, Mark- 
stücke oder sogar Hundertmarkscheine vorstellen. 

Die Höhe des Gewinnes wird in der untersten Zeile 
angezeigt. Das Feld blinkt so lange, bis der glückliche 
Gewinner durch Druck auf die Leertaste die Auszah- 
lung des Gewinns verlangt. Sofort werden die Punkte 
in der Reihe AUS angezeigt beziehungsweise zu den 
dort bereits vorhandenen Punkten dazugerechnet. Da- 
nach werden die weiteren Gewinnfelder geprüft und 
ausgezahlt. 

In den Reihen zwei bis sieben sehen Sie immer zwei 
Ziffern. Diese Felder gewinnen, wenn die beiden Au- 
genzahlen gewürfelt wurden, aber nur dann, wenn sie 
sich auch in der richtigen Reihenfolge befinden. Wenn 
die drei Würfel also die Folge 4-3—6 zeigen, gewin- 
nen die Felder 4—3, 4—6 und 3-6, nicht aber die Fel- 
der 3—4, 6—4 und 6-3. 

Zeigen die Würfel 2—-3—2 an, gewinnen die Felder 
2-2, 2-3 und 3-2, denn die Drei wurde sowohl vor 
als auch nach der Zwei gezogen. Für ein Feld mit zwei 
gleichen Ziffern wird der zweifache, in der dritten 
Runde der achtfache Einsatz ausgezahlt. Für zwei un- 
terschiedliche Ziffern gibt es den zwei- beziehungs- 
weise fünffachen Einsatz. Paschfelder gewinnen auch 
bei drei gleichen Ziffern. j 


VIELE GEWINNMÖGLICHKEITEN 


Doch damit sind die Gewinnmöglichkeiten noch nicht 
erschöpft. Am rechten und unteren Rand der Gewinn- 
tafel befinden sich Felder mit Pfeilen und Schrägstri- 
chen. Auch auf diese Felder kann gesetzt werden. Die 
Felder mit Pfeilen gewinnen mit jedem Feld, das in der 
Reihe oder Spalte gewinnt, die von den Pfeilen gezeigt 
werden. Das Feld mit den Schrägstrichen gewinnt, 
wenn ein Feld mit zwei gleichen Ziffern gewinnt. Das 
Pfeilfeld in der ersten Reihe erhält bei Gewinn den 
fünffachen Einsatz, in der dritten Runde wird 25fach 
ausgezahlt. Die anderen Felder gewinnen den Einsatz 
zurück, in der letzten Runde das Doppelte, wenn ein 
Pasch geworfen wurde. 

Es sieht im ersten Moment so aus, als ob es sich nicht 
lohnen würde, auf die Randfelder zu setzen, da es im 
Gewinnfall ja nur den Einsatz zurückgibt. Doch Sie 
sollten bedenken, daß die Chance zu gewinnen größer 
ist. Da in drei Runden gespielt wird, kann natürlich in 
einer Reihe auch dreimal gewonnen werden. Es kommt 
noch hinzu, daß für jedes Gewinnfeld der Reihe aus- 
gezahlt wird. Hat also ein Spieler die Reihe von 1—1 
bis 1—6 gesetzt und die Würfel zeigen die Kombina- 
tion 1—3—4 an, so wird in dieser Reihe zweimal ge- 
wonnen, nämlich 1—3 und 1-4. Damit werden auch 
die kleinen Chancen noch attraktiv. 

Nachdem die Gewinne der dritten Runde ausgezahlt 
sind, ist das Spiel zu Ende. Die Differenz der Reihen 
EIN und AUS wird als Gesamtgewinn oder Verlust in 
die Reihe +/— übernommen. Punkte, die schwarz er- 
scheinen, sind Gewinne, rote dagegen zeigen Verluste 
an und sind der Gewinn der Bank. 

Geben Sie durch J oder N bekannt, ob ein weiteres 
Spiel laufen soll oder nicht und die Spielhölle 

schließt ihre Pforten oder beginnt ein neues Spiel. 
Beachten Sie während des Spieles immer das Feld an 
der rechten Seite des Bildes. Dort erhalten Sie Hin- 
weise, was zu tun ist oder was Sie falsch gemacht ha- 
ben. So ist es sehr einfach, das Programm zu bedie- 
nen. G. Kramer D 
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18 rem spielhoelle==========616/p4 <io> 598 printa$ <«il> 
28 rem (p) commodore welt team <ho> 600 nextid,i <ap> 
u er eniee 3 618 color1,3,6 <mf> 
48 rem (c) by g. kramer <kd> 620 sound2, 739,258 <ab> 
58 rem emsdetten <em> 638 fori=17t023 <pd> 
68 rem <ah> 648 bA=b+i*4QrA <la> 
78 rem basic v3.5 - <nl> 658 a=66:a9d=66:41=32:a2=66 <io> 
88 rem c16/116/plus4A <ki> 668 if( iand1)=1thena=197:a8=115:a1 

90 rem =========================== Cjg> =67:32=91 <an> 
100 gosub4530 <ga> 678 ifi=17thena=112:a98=119:a1=64:a 

118 gosub 198 : <ko> 2=114 <hk> 
128 gosub1118 <la> 680 ifi=23thena=109:a98=125:a1=6A4:a 

130 gasub2458 <ct> 2=113 <el> 
148 ifa$="j"then120 <hc> 698 pokebd,a <gm> 
156 end <kn? 788 forid=itos <1k> 
160 ========== <cc> 718 b1=-i0*5-5 <kb> 
178 bildaufbau <In> 728 fori1=1t04 <jb> 
18B =======-== <dl> 738 pokeb@+b1+i1,a1 <jk> 
198 pokeb, 85 <kf> 748 next <ep> 
200 a=64:a0=114 <gj? 758 ifiß<sthenpokeb#+b1+5,a2 <jl> 
218 a1l=7:bB=b+1 <bp> 768 ifiß=sthenpokeb@+b1+5,.a® <ml> 
228 vol8:sound1,596,958 <hp> 770 nextid,i <hd> 
230 gosub4418 <kg> 788 fori=itos <hn> 
240 pokeb+28B,73 <pi> 798 poke282, 1+5*#i <1f> 
258 fori=1t07 <cd> 880 poke285, 17 <ke> 
268 forid=Bto1l <nf> 81Q0 sys55464 <hn> 
270 a=66:ifiß=ithena=197 <km> 828 printn$(i) <eb> 
288 pokeb+48+[ i-1)*80+4B*iB,a <dl> 838 next <ae> 
298 a=32:ifi@=ithena=64 <mj> 848 sound2,818,288 <bb> 
300 aß=66:ifid=ithenad=91 <ik> 858 print”ein” <jg> 
319 bO=b+41+( i-1)*80+i0*48 <bm> 868 print:print"aus" <ip> 
328 sound3,596, 1 <np> 878 print:print"+/-" <ol> 
338 gosub4418 <dd> 880 a$=""""" <dk> 
348 a=66:ifiß=1thena=115 <ej? 898 poke285, 15 <jl> 
350 pokeb+68+( i-1)*80+40*id,a <1d> 988 fori=1to21step4 <nl> 
368 nextiß,i <on> 918 poke282,i <gc> 
370 pokeb+6809,66 <bce> 928 sys55464 <ce> 
380 a=32 <dj> 938 printa$; <kl> 
398 ad=66 <op? 948 next <ob> 
400 bA=b+6M1 <ni> 958 poke282,25 <kh> 
418 sound3,596, 18 <nm> 968 sys55464 <ak> 
420 gosub4418 <ja> 978 a$=chr$( 189) +tchr$( 189) +chr$( 10 

438 pokeb+628,66 <aa> 9) <ho> 
448 pokeb+648,74 <gk> 988 printa$ <mh> 
450 a=64:30=113 <ha> 930 a" __" <1k> 
468 a1=7:bB=b+641 <aj? 1888 fori=1to13step2 <kb> 
478 sound2,685, 288 <on> 1818 poke282,25 <mb> 
4808 gosub4418 <aj? 1828 poke285,i <oj> 
498 pokeb+668,75 <nj? 1838 sys55464 <ma> 
508 fori=Bto6 <od> 1848 printa$ <kn> 
518 forid=1to6 <bn> 1858 next <lo> 
528 a$=right$(str$(i®), 1) <im> 1868 fori=8toßstep-.Bi:voli:next <kl> 
538 a@$=right$(str$(i),1) <pb> 1872 return <pc> 
548 ifi=®thena$=a$+ta$+ta$:goto56P <nj> 10808 ============2==== <ie> 
550 a$=a$+"-"tad$ <od> 1898 einsaetze machen <lo> 
568 poke292,i0*4-3 <hj?> 1108 ================ <fi> 
578 poke205,1i*2+1 <hk> 1110 gosub2068 <ac> 
580 sys55464 <ld> 1128 vol8d <hp> 
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1138 
1148 
1158 
1168 
1178 
1188 
1190 
1208 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1288 
1298 
1388 
1318 
1328 
1330 
1348 
1358 
1368 
1378 
1388 
1398 
1488 
1418 
1428 
1438 
1448 
1458 
1468 
1478 
1488 
1498 
1588 
1518 
1528 
1538 
1548 
1558 
1568 
1578 
1588 
1598 
1688 
1618 
1628 
1638 
1648 
1658 
1668 
1678 
1688 
1698 
1788 


gosub2358 

sp=1:cs=1:cz=1 
na=f+681+5*sp 
pokena,peek(na)or128 
pokena+t1,peek(na+1)or128 
poke285,4:poke292,38 
sys55464 

print"cursor=" 
printtab( 30) "auswahl" 
print 

printtab(31)"”1 - 9” 
printtab( 38) "einsatz" 
print 

printtab( 38)" =" 
printtab( 38) "naechster"” 
printtab( 32) "spieler" 
print 

printtab(38)"* = ende” 
fe=f+88*cz+4*%cs-43 
pokefe,peek( fe) ori28 
pokefe+1,peaekl[ fe+1})or178 
pokefe+2,peek( fe+2)or128 
poke239,8 
getkeya$:a=asc(a$) 
ifa=48then 1758 

ifa=94then 1958 
if(a>48) and( a<58) then 1538 
ifa=145thencz=cz-1:g0ot01458 
ifa=29thencs=cs+1:goto1458 
ifa=17thencz=cz+1:goto1458 
ifa=157thencs=cs-1:goto1458 
goto1368 
pokefe,peek( fe) and127 
pokefe+1,peek( fe+1) and127 
pokefet2,peek( fe+t2) and127 
ifes=@thencs=7 
ifes=döthencs=1 
ifcz=@thencz=B 
ifez=9thencz=1 

goto1318 
ifeilsp,cs,cz)=@®then 1658 
gosub2358 
poke205,5:poke282,38 
sys55464 

sound3, 1823, 38 
printchr$( 138) "das feld" 
printtab( 32) "ist" 
printtab( 38) "bereits" 
printtab( 38) "besetzt" 
getkeya$ 

gosub2358 

goto1158 

e=-val(a$) 

eilsp,cs,cz)=e 
e(sp)=e(sp)+e 

glB)=g[lB)+e 

gosub2968 
pokefe,peek( fe) and127 
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pokefe+i,peek( fe+1)and127 
pokefe+t2,peek(fe+2) and127 
cs=cs+1l:ifcs=Bthencs=6 
gato1318 ' 
pokena,peek( na) and127 
pokena,peekf{ na} and127 
pokenat1,peek(na+t1)and127 
pokefe,peek( fe) and127 
pokefe+1,peek( fe+1) and127 
pokefe+2,peek( fe+2) and127 
gosub2358 

sound1,596,68 

sound2, 685,68 

sp=spt1 

ifsp>sthensp=1 
poke285,5:poke282,38 
sys55464 

printchr$( 138)n$(sp)” (j/n)” 
poke239,8 

getkeya$ 


ifla$<>"n")and( a$<>"j")then19 


gosub2358 
ifa$="j"then1150 

goto1828 
pokena, peek( na) and127 
pokena,peek( na) and127 
pokena+t1,peek( na+1) and127 
pokefe,peek( fe) and127 
pakefe+t1,peek( fe+1) and127 
pokefe+2,peek( fe+2) and127 
gosub2354 

return 


forj=1tos 

sound1,888,3 
color1,3,5 

poke205, 18:poke202,5*j 
sys55464 
printusing”###4" ;e( j) 
color1,1 
poke285,28:poke202,5*j 
sys55464 
printusing”##44#" ;a( j) 
a=1:ifg( j) <döthena=3 
color1,a,5 
poke285,22:poke282,5*j 
sys55464 

a=abs(g( Jj)) 
printusing"####" ;a 
next 

printchr$( 19) 
pokeb+79,32 
color1,16,5 
printtab( 38) "bank"; 
printusing"###HH";g( 0) 
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2288 printchr$( 19) <fl> 2858 forl-968t0999 <chb> 
2298 printtab( 34) chr$( 148) <gi> 2868 pokeb+1,32 <mp> 
2388 color1,1 <mj? 2870 next has 
2318 return <km> 2888 fori=1tos Ä <ge> 
2320 =ersanssnamennnannen <bo> 2898 sound1,596,28:sound2,658,28 <ch> 
2338 textzeilen loeschen <mp> 2988 gli)=gli)-eli)+ali) <ca> 
3A rear ia Ser <gl> 2918 e(i)=8:a(li)=® <go> 
2350 aß$=chr${ 32) +chr$( 32) +chr$( 32 2928 gosub2860 <bn> 
) <hd> 2938 forid=8to7 <1h> 
2368 poke285,2:poke202,8:5ys55464 <md> 2940 fori1=dtoB <ch> 
2370 fori=2to16 <mc> 2958 ei(i,i®,i1)=® <kb> 
?388 printtab( 38) a8$aB$ad$ <hh> 2968 nexti1,iß,i <me> 
2398 next <ea> 2978 gosub2358 <ie> 
240808 pokeb+119,32:pokeb+159, 32 <if> 2988 poke205,5:poke292,30:5ys55464 <cb> 
2418 pokeb+199,32:return <ah> 2998 print”ein neues" <ig> 
DA2H ======------- <gn> 3088 printtab( 32)"spiel?” <fh> 
2430 spiel laeuft <ke> 3@18 print <de> 
DAAD ==========-=- <bd> 3828 printchr$( 138) tab( 32) "(j/n)” <nk> 
2458 gosub2358 <ef> 3038 getkeya$ <kn> 
2468 fori=112t0512step288 <jp> 3848 ifla$<>"j")and( a$<>"n")then3Q 

2478 Foriß=-Bto16Astep4® <kb> 30 <bo> 
2488 a=66:38=32:a1=66 <dn> 3858 return <hj> 
2498 ifiß=®thena=85:a9>64:31=73 <bd> 3060 ======== <ce> 
2580 ifi@=168thena=74:30=64:a1=75 <dh> 3078 wuerfeln <In> 
2510 a2=b+i+iß <mm> a <ki> 
2528 pokea2,a <an> 3098 a$=chr$( 32) <ob> 
2538 fori1=1to3 <be> 3100 ad$=chr$( 119) <bg> 
2548 pokea2+i1,a® <ge> 3110 w$=a$ta$+ta$ <mk> 
2558 next <ib> 3128 w8$=a$+taß$+a$ <an> 
2568 pokea2+4,al <ae> 3130 w1$=a$+a$+ad$ <go> 
2578 nextid,i <ff> 3140 w2$=aB$+a$+a$ <bb> 
2588 fori=1to3 <bk> 3150 w3$=ad$+ta$+tad$ <ck> 
2598 color1,15,5 . <jk> 3168 forl=1t058 <kf> 
2688 char1,37,3,"" <nc> 3179 a=1+tint(rnd(a)*6) <nl> 
2618 printi <gl> 3180 a$=w$ <nb> 
2628 colori,i <of> 3198 ifa>ithena$=w2$ <ej> 
26308 pokef+117,8:pokeb+117,112 <nm> 3208 ifa>3thena$=w3$ <oj> 
2648 pokef+118,8:pokeb+118,64 <1d> 3218 poke285,i®:poke282,33 <fn> 
2658 pokef+119,8:pokeb+119,118 <nk> 3228 sys55464 <ga> 
2668 pokef+157,0:pokeb+157,66 <im> 3238 sound3, 689,2:sound1,688,2 <fd> 
2670 pokef+159,8:pokeb+159,66 <na> 3248 printa$ <ko> 
2688 pokef+197,0:pokeb+197, 189 <aj?> 3258 ifa=6then3288 <ef> 
2698 pokef+198,8:pokeb+198,64 <ph> 3268 a$=w$ <oh> 
2700 pokef+199,8:pokeb+199, 125 <il> 3278 iflaandi)=1thena$=wa$ <hh> 
2718 fori®=3to13stepS <nc> 3288 printtab( 33) a$ <aa> 
2728 gosub3B90 <cg> 3298 ifa=6then3358 <ip> 
2730 w(i8/5+1)=a <nd> 3300 a$=w$ <nm> 
2748 next <pp> 3318 ifa=1then3358 <ck> 
2758 gosub3418 <nk> 3328 a$=wi1$ <nm> 
2768 next <ch> 3338 ifa<4then3358 <ci> 
2770 poke285,24:poke202,4 <ia> 3349 a$=w3$ <bn> 
2788 sys55464 <ml> 3358 printtab( 33) a$ <fk> 
2798 print”ende des spieles”; <kp> 3368 next <nm> 
2888 fori=BtoBstep.5 <dh> 3378 return <pm> 
2818 voli <ba> 3380 =========--===- <jn> 
2828 sound1,596, 18 <cg> 3398 pruefen gewinn <el> 
2838 sound2, 685,18 <gh> 3400 ======--=--==-===- <ki> 
2848 next <mi> 3418 a4=8 <ga> 
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3420 ifw(1)<>w(2)then3508 <be> 3978 poke285,24:poke282,4 <mi> 
3438 ifw( 1) <>w( 3) then3588 <kd> 3980 sys55464 £es> 
3449 ad=-w( 1) :a1=9:a2=58 <df> 3998 printn${ 1)" gewinnt"”a2"mal"a3 

3458 ifi=3thena2=198 <fo> ; ‘ 2185 
3468 gosub3988 <bj> 4088 a4=a2 <cg> 
3478 a8=7:a1=9:a2=5 <dp> 4010 poke239,8 <gl> 
3488 ifi=3thena2=25 <hf> 4028 getkeya$ <ml> 
3498 gosub3988 <nf> 4838 for1l@=1toa3 <ap> 
3500 ad=d <pl> 4848 g(B)=g(B)-1*a2 <1n> 
3518 ifw( 1)=w( 2) thenad=wf 1) <bl> 4858 all)=a(1l)+1*a2 <ho> 
3528 ifw( 1)=w( 3) thenad=uwf 1) <jk> AB6B gosub2968 <db> 
3530 ifw(2)=w(3) thenad=w( 2) <in> 4878 next <en> 
3548 a2=3:ifi=3thena?=8 nj> 4880 For1d=b+960t0b+999 <gl> 
3558 ifad=8then3598 <ag> A098 paokelB,32 <ma> 
3568 al=ad <mj?> 4188 next <kk> 
3570 gosub3988 <nh> 4118 next <lo> 
3588 gosub4198 <po> 4128 for18=#to2 <ma> 
3598 ad=w( 1) :a1=w(2) <mf> 4138 pokef@+18,peek( fB) and127 <ci> 
3608 a2=2:ifi=3thena2=6 <gg> 4148 next "  <pk> 
3618 ifaß<>althengosub39BA:gosub41 A158 return <bk> 
98 <fk> A160 ==================== <op> 
3628 al=w( 3) <jf> 4178 sammelfelder pruefen <mm> 
3638 ifa1=w( 2) then3668 <pe> A180 ==================== <ct> 
3648 a2=2:ifi=3thena2=6 <ia> 4198 ifi<3then4348 <eo> 
3650 ifaß<>aithengosub39U4: gasub41 4208 fi=fBo <hc> 
99 <bk> 4218 forl=8to2 <fn> 
3660 ad=w( 2) <gn> 4228 pokefi+l,peek( f1)or128 <kf> 
3678 ifad=w( 1) then3788 <kb> 4238 next <kp> 
3688 a2=2:ifi=3thena2=6 <lc> 4248 bB=aß:bi=al <dm> 
3698 ifaß<>aithengosub39B0:gosub41 4258 a2=2 <be> 
98 <kp> 4268 ifaß<>althen4290 <po> 
37088 ifa4>B8then3798 <da> 4270 ad=7:a1=7 <de> 
3718 poke285,24:poke282,4 <ge> 4268 gosub3988 <om> 
3728 sys55464 <oh> 4298 ad=bA:a1l=? <gk> 
3738 print"leider kein gewinn”; <ig> 4388 gosub3988 <hd> 
3748 poke239,8 <1h> 4318 a@=>7:a1l=b1 <fe> 
3758 getkeya$ <nk> 4328 gosub3988 <on> 
3768 For1-968t0999 <ol> 4338 a@=b9:a1l=b1 <oj> 
3778 pokeb+1,32 <ke> 4348 for18=8to2 <1lg> 
3788 next <ch> 4358 pokef1+18,peek( f1)and127 <am> 
3799 a$=chr$( 32) +chr$({ 32) +chr$( 32) <po> 4368 next <le> 
3888 forl=3to13step5 <fo> 4378 return <ne> 
3818 poke285,1:poke202,0:5ys55464 <fa> 4380 ==========- == <hk> 
3828 printtab( 33) a$ <co> 4398 linien ziehen <ha> 
3838 printtab( 33) a$ <oe> 4400 =====sunnnnun <pf> 
3848 printtab( 33) a$ <fi> 4418 forl=1toal <dg> 
3858 next <le> 4428 for18=1t03 <cd> 
3868 return <ne> 4438 pokebd+( 1-1) #4+18-1,a <mb> 
3878 ======-=== <ja> 4448 next 2 <fe> 
3888 auszahlen j <pf> 4458 pokebd+1*4-1,.0 <ig> 
3898 ========= <hi> 4468 next <hm> 
3908 fFO=f+37+4*aB+BO*a1 <hg> 4478 forl=8to2 <jo> 
3918 forl=8to2 <ph> 4488 pokeb@+4#a1-1,a <kb> 
3928 pokef@+l,peek( f8)or128 <mo> 4498 return <mf> 
3938 next <fe> 4508 ============ <nb> 
3948 forl=1tos <jg> 4510 anfangswerte <pe> 
3959 a3-eill,ad,al+1) <ke> 4520 =======-==- === <jd> 
3968 ifa3=Bthen4118 <jf> 4538 color1,5,3 :rem zeichenfar 
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SPIELHOELLE 


be <pk> 5858 print"wieviele spieler? (1-7) 

4548 scnelr :rem bildschirm <ph> bi <ea> 
4559 color@,14,?7 :rem hintergrun 5068 getkeya$ <am> 
d <ib> 5078 ifla$<"i")or(la$>"7")then5@68 <me> 
4568 color4,14,5 :rem rand <jh> 5088 s=valla$) <ne> 
4578 b=3872 :rem bildadress 5898 print <ie> 
@ ‚ <ab> 5108 fori=sitos <jb> 
4588 f=2048 :rem farbram <ej> 5118 .print"”name spieler”i; <pm> 
4598 s=7 :rem spielerzah 5128 au$="" <go> 
1 <nf> 5138 getkeya$ <hj> 
4669 dimn$(s) :rem spielernam 5148 ifla$<"a")orla$>"z")then5138 <kc> 
en j <fg> 5150 au$=-ad$+a$ <dd> 
4618 dime(s) :rem einsatz <ga> 5168 printa$; <ba> 
4628 dima(s) :rem gewinn <kl1> 5178 iflen(aß$) <2then5138 <ni> 
4638 dimg(s) :rem gesamt <il> 5188 n$li)=ad$ <fj> 
4648 dimeils,7,8) :rem felder ges 5198 print <en> 
etzt <jj> 5288 next <ek> 
4658 dimw( 3) :rem wuerfe <ai> 5218 return <gk> 
4668 a$=chr$(32) :rem wuerfel <kn> 5228 data77,27,40,84,a8,40 <de> 
4670 aß$=chr$( 119) <hf> 5230 data67,2e,47,14,28,48 <im> 
4688 wb=a$tafta$ <ih> 5248 datae4,2f,78 <dm> 
A698 wO$=a$+taß$+ag <1m> 5258 data94,31,07,93,21,88 <ha> 
A798 wi$=a$+a$+ad$ <hh> 5268 dataf4,a1,Be,94,a1,88 <im> 
4710 w2$=aß$+ta$+a$ <be> 5278 data93,3d,ef <fm> 
4720 w3$=aß$+a$+ad$ <ao> 5288 =p=r=0=g=r=a=m=m=e=n=d=e===== <mm> 
4738 fori=48t0288step248 <ga> 

4740 bO=b+ti <b1> HUBSCHRAUBER C16 

4758 volB <ha> 

4768 forid=9to16Astep4d <op> [#3] 

4778 fori1=1to3 <kd> 

4788 reada$ <1g? En 
4798 a=dec( a$) <kh> 

4808 fori2=7todstep-1 <ni> 

4818 if( aand2°i2)=Bthen4848 <nk> 

4820 sound2, 958,5 <gp> 

4838 pokeb@+i9+8*11+7-12,182 <de> 

4848 nexti2,i1,i®,i <ek> 

4858 vol® <ph> 

4868 poke282,18 <ag> 

4878 poke285, 16 <ko> 

4888 sys55464 <ac> 

4898 print"ein wuerfelspiel von" <ik> 

49088 a$="g kramer" <go> 

4918 poke282,13 <fn> 

4928 poke285,19 <ik> 

4930. sys55464 <hh> 

4948 fori=1t014 <mc> 

4958 ifmid$(a$,i,1)=chr$( 32) then49 

98 <ie> HUBSCHRAUBER VERSION 1 

4968 vol8 <11> 

4978 sound1,588,5 <ff> 

4988 fori@=Btoßstep-1:voliß:next <ch> Selbst mit dem begrenzten Speicher eines C16 
4990 printmid$(a$,i,1); <bh> läßt sich das Abbild eines Hubschraubers auf den Bild- 
5908 next <13j> schirm bringen. Mit Drucker und Hardcopyroutinen 
5018 getkeyaß <pb> dürfen Sie ihn auch schwarz auf weiß auf 
5028 vol® ckax Papier bewundern. 

5038 scnelr 1? Hubschrauber C16 ist ein Grafik-Programm, das einen 
5848 print <ca> Hubschrauber auf dem Bildschirm darstellt. Das Be- 
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HUBSCHRAUBER-GRAFIK 


sondere daran ist, daß eine Grafik dieser Klasse auch q <em> 
für einen C16/116 mit 16 KByte bestimmt ist, ob- ROM 1 ha : = Ri 
wohl der Speicherplatz im Grafikmodus doch sehr be- Er rien si 
scheiden ist. An Peripherie wird neben dem C16/116 306 draw1,44,183t039, 187 <kp> 
oder dem Plus/4 lediglich ein Speicherwerk zum Si- 318 draw1,44,183t048, 186, <me> 
chern des Programms benötigt. 320 draw1,44,183t051,184:paint1,58 

Nach dem Starten werden Sie in zirka zwölf Sekun- 185 <ch> 
den die Hubschraubergrafik auf dem Bildschirm be- 338 draw! ,44,183t050, 105 <ao> 


wundern können. Sind Sie im Besitz eines Druckers 


mit einer entsprechenden Hardcopyroutine (in der 348 draw1,144,93t0142,8B6 <mf> 
C16/P/4 SPECIALNT. 1 wurde eine Hardcopyroutine 358 drawto135,83:drawto138,84:draw 
für Commodore-Drucker vorgestellt), so können Sie t0o119,81:drawto118,78:drawto129,75 
diese wunderschöne Grafik auch zu Papier bringen. D :drawto139, 75 <1h> 
368 drawto142,86:paint1,138,8® <el> 
18 rem hubschrauber============616 <dm> 370 draw!,139,75t0142,70:drawto168 
28 rem (p) commodore welt team <ho> ‚67 <nn> 
38 rem (c) by ralf haack <fd> 388 circle1,163,73,8,,118,382 <bc> 
48 rem c16/116/plus4 <kc> 398 drawto171,76:paint1,163,73 <nd> 
58 rem =====-=--------==-==2=2=22=-= cdb> 400 draw1,142,86t0165,82 <fm> 
68 color@,2,7:color1,1,1:color4,15 418 draw1,166,66t01854,68 <dg> 
‚6 <po> 428 drawto199,58:drawto297,59:draw 
78 graphic1,1:draw1,8,28t0166,38 <gf> t0o287,65 <dd> 
88 draw1,8,25t0166, 38:paint1,8,23: 438 circle1,297,188,77,35,8,138 <jo> 
draw1,8,23t0166,38:draw1,328, 11t02 448 draw1, 166, 115t0178, 128 <ga> 
13,35 <ct> 450 drawto17B, 122:drawto266, 122 <lo> 
30 draw1,328, 18t0213,35 <ı1f> 468 draw!,32,113t0279, 113:paint1,3 
100 paint1,319,15:draw1,328, 15t021 4,114 <od> 
a nm> 478 draw1,32,111t0279, 111 <kh> 
118 box1,167,35,181,41,88, 1 “mg? 480 draw1,32,118t0279, 118 <jk> 
128 drawd, 168,34:drawd, 167,48 <pa> 498 box1,198,122,193, 138,8, <hi> 
138 drawd, 175,37t0175,36 <ma> 588 box1,251,122,254, 130,8, 1 <ol> 
148 drawß, 176,36t0176,37 <jg> 5180 box1,170,130,274,134,8,1 <ak> 
15@ draw, 176,39t0176,48 nj> 528 circle1,274,126,8,4,98, 188 <hi> 
168 draw®d, 175,48t0175,39 <hn> 53@ circle1,274,126,12,8,98, 188 <hi> 
170 box1,198,33,212,48, 170, 1:draw® 548 draw1,282,126t0287,126:paint1, 
‚213,32 <bp> 276,132 <1k> 
188 draw®,214,38t0214,37 <pp> 558 circle1,274,67,48, ,168,270 <gb> 
198 draw®, 285, 34t0205, 35 <nn> 568 circle1,254,90,18,,29,58 <1j> 
208 draw®, 205, 38t0285,37 m 578 circle1,285,80,5,,268,36® <ee> 
218 drawd, 204, 34t0284, 35 <pn> 588 draw1,285,75t0222,73 <bn> 
228 drawd, 204, 37t0204, 38 <hg> 598 circle1,220,78,5,,,188 <ho> 
238 draw1,28,68t039,65 <bc> 68 draw1,225,79t0225,92 <mb> 
240 draw1,28,68t031,96:drawto27,98 618 circle1,228,92,5,,90, 198 <hd> 
:drawto33, 122 <cp> 628 drawto284,99 <ba> 
258 draw1,39,65t062, 188:drawto144, 638 circle1,284,94,5,,188,288 <ad> 
93 <ha> 648 drawto199,88 <ak> 
268 draw1,33, 122t0166, 115:circlel, 658 draw1,181,41t0181,51 <gi> 
44,103,7 <gr> 668 drawi,198,39t0198,51 <ge> 
278 draw1,44,183t044,96:draw1,44,1 678 draw1,184,51t0195,51:box1, 187, 
83t042,97:paint1,43,98 <ed> 52,192,68 <kh> 
6588 drawi,198,58t0182,44 <ie> 
698 drawi, 198,58t0197,44 <oa> 
m m 708 circle1,1980,27,16,,158,21@:pai 
Alle Listings nt1,190,45 <mg> 
718 circle1,281,63,2:draw1,281,63 <ce> 
auch auf Disc 720 drawß,199,61t0199,65 <hh> 


738 draw1,2808,63:box1,8,08,319,199 <fc> 
748 char1,18,22,”hubschrauber vers 

ion 1" <oc> 
758 rem =p=r=0=g=r=a=m=m=e=n=d=>e== <ak> 


und Cassette! 
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BUDGET-ANALYSE 


Finanz- 
minister 


Gezielte Einsparungen sind der Nutzen 
dieses Programmes, mit dem Sie sich den Überblick 
über Ihre Ein- und Ausgaben verschaffen können. 


Ein gravierender Nachteil des C16 gegenüber seinem 
Schwestermodell Plus/4 ist sicher der Verzicht auf die 
eingebaute Software. 

Für Privatpersonen dürfte vor allem die Datenbank 
interessant sein, weil sie eine kontrollierte Haushalts- 
führung ermöglicht. 

Das Programm ‚‚Budget-Analyse‘“ geht noch einen 
Schritt weiter, indem es einen Datenvergleich zuläßt, 
der im Rahmen einer normalen Datenbank nicht mög- 
lich ist. Für den Gebrauch ist lediglich der C16 in sei- 
ner Grundversion und ein Diskettenlaufwerk nötig. 
Natürlich ist das Programm ebenso auf dem Plus/4 und 
dem C16 mit Speichererweiterung lauffähig. 


BEDIENUNGSANLEITUNG 


Budget-Analyse soll Ihnen dazu verhelfen, Klarheit 
und Ordnung in Ihre persönlichen Finanzen zu brin- 
gen. Hierzu werden alle Ein- und Ausgaben in Unter- 
posten aufgeteilt und registriert, um sie zusammen 
mit den Ein- und Ausgabesummen sowie dem Konto- 
stand abzuspeichern und abrufbar zu machen. 
Der Datenabruf kann in verschiedenen Formen erfol- 
gen, wobei sich die Daten zur Finanzanalyse gegen- 
überstellen lassen. 
® Tippen Sie das Listing wie gewohnt ab und spei- 
ann Sie das Programm auf einer formatierten Dis- 
ette. 
© Lassen Sie das Diskettenlaufwerk zum Programm- 
betrieb an. 
® Nach Start mit RUN erscheint das Hauptmenü. 
© Anfangs ist es nötig, das Programm für Ihre per- 
sönlichen Bedürfnisse einzurichten. Wählen Sie hierzu 
den Menüpunkt „#“ (nm chinng), 
Danach wird Ihnen der maßgebliche Programmab- 
schnitt aufgelistet. 
Von den insgesamt 19 abrufbaren Einzelposten las- 
sen sich 15 von Ihnen frei definieren. Die restlichen 
vier Posten sind für Einnahmesumme, Ausgaben- 
summe, Bilanz und Kontostand reserviert. 
Die Einrichtung erfolgt durch Ausfüllen der geliste- 
ten DATA-Zeilen: 
In Zeile 1840 ist die Anzahl der vorgesehenen Ein- 
nahmen und Ausgaben anzugeben (insgesamt maxi- 
mal 15). ’ 
Weil die Dateneingabe später mit Hilfe von Kennbuch- 
staben erfolgt, müssen Sie innerhalb der Zeilen 1860 
bis 2000 zunächst das X durch einen Kennbuchsta- 
ben ersetzen und dahinter die Bezeichnung des be- 
treffenden Einzelpostens eintragen. Es ist zweckmä- 
Big, wenn sich der Kennbuchstabe mit dem Posten in 
Hal bringen läßt, zum Beispiel K für Klei- 
ung. 


Nicht benötigte DATA-Zeilen können offen gelassen 
werden. 

Nach Abschluß der Einrichtung können Sie das Pro- 
gramm erneut mit RUN starten. 

Für die Menüpunkte 1 bis 5 erscheinen nach Abruf in 
einer grünen Zeile am oberen Bildrand Untermenü- 
punkte: 

* führt zurück zum Hauptmenü, 

1 bewirkt den Ausdruck der betreffenden Bildschirm- 


seite, 
# löscht die Daten der angezeigten Bildschirmseite. 


VARIABLENLISTE 


Dimensionierte Variablen: 
K% (12,20) = File-Daten 
K% (M,16) 
K% (M,17) 
K% (M,18) 
K% (M,19) 
K% (M,20) 


Kontostand 
Summe Einnahmen 
Summe Ausgaben 
Bilanz 

Anzahl Notizen 


[ee Eu u Bu 


Dimensionierte Strings: 

c$ (19) Postenbezeichnungen 
M$ (12) Monatsbezeichnungen 
N$ (12,11) = Notizen 

KC$ (19) Kennbuchstaben 


Undimensionierte Variablen: 

Universelle FOR-NEXT-Variablen 
Anzahl Ausgaben 

Anzahl Einnahmen 

Horizontale Position 

INPUT für K%() 

Monat 


Markierung für Überlauf/ 
Notizspeicher 


= Titelposition 


Undimensionierte Strings: 

E$ Eingabe Notizen 
J$ Eingabe Jahr 
Jv$ Reserve für J$ 
s$ SAVE-String 

T$ Tastaturabfrage 
x$ Abgriff aus N$ 
z$ Leerstring 


Weitere Untermenüpunkte werden im jeweiligen Zu- 
sammenhang erklärt. 

Das Laden und Abspeichern von Daten erfolgt völlig 
automatisch in Form kleiner sequentieller Dateien. 
Zur Eingabe Ihrer Daten wählen Sie Punkt 1 im 
Hauptmenü. 

Nach Angabe des gewünschten Monats und Jahres er- 
scheinen alle Einzelposten-Bezeichnungen, farblich 
nach Einnahmen und Ausgaben geordnet, zusammen 
mit ihren Kennbuchstaben. 

Nach Wahl eines Kennbuchstabens erscheint ein 
INPUT an betreffender Stelle. Sie können dahinter 


Bitte lesen Sie weiter auf Seite 60 
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BUDGET-ANALYSE 


iß rem budget-analyse==========c.16 
28 rem {p) commodore welt team 

38 rem -seransenasenennasenennnn nn 
48 rem (c) by peter bergen 

58 rem 

68 rem 

78 rem basic v3.5 

88 rem c16/116/plus4 

98 rem =================2========== 
1088 gosub2358:dimn${ 12,11) ,m$( 12), 
kc$( 19) ,c$( 19) ,K% 12,20) 

118 z$=b$+b$+b$+b4$+b4$:vol5 

128 gosub2188 

138 gosub1748 

148 poke239,8:getkeyt$ 

158 ift$="#"thenscnelr:1list 1838-28 
88: printchr${ 145) chr${ 145) :stop 
168 ift$="1"then23® 

178 ift$="2"then998 

188 ift$="3"then1198 

198 ift$="4"then1998 

288 ift$="5"then 1448 

218 goto14d 

228 rem kosteneingabe 

238 scnelr:color1,9,6:printchr${ 18 
)" kosteneingabe"b$b$b5$ 

240 hp=28:gosub758:gosub8ABd 

258 color1,6,6:char1,8,1,chr$( 18): 
print” *=menue”b2$"®@=abschluss"b2$ 
"#4=clear"b2$"&=notiz 

268 gasub2228 

278 poke239,8:getkeyt$ 

288 b=1:fora=1toae:ifkc$(b) =t$then 
gosub438 

298 b=b+t1:next 

388 fora=itoaa:ifkc$(b)=t$thengosu 
b468 

318 b=b+1:next 

328 ift$="*"then138 

3398 ift$="#"thenfora=1t028:k%[m,a) 
=®:next:sound1,508,5 

348 ift$="@"thengosub519:g0t0388 
358 ift$="&"thengosub839:goto258 
368 ifkc$( 16) =t$thencolori,2:char! 
‚28,23,"":printrn$; :inputk%(m, 16): 
kp=23:gosub498 

378 goto27% 

388 color1,6,6:char1,8,1,chr$( 18): 
print"*=menue"b2$d$”=copy"”b$b$b4$ 
398 poke239,8:getkeyt$ 

a88 ift$="*"thengosub 1558:goto138 
418 ift$=d$thengosub 1658 

428 goto392 

438 ifb/2=int(b/2)thencolor1,7,4:e 
lsecolor1,7,6 

448 char1,28,b+3,rn$:inputki:k%(m, 
b)=k%[m,b) +ki:k%[Lm, 17)=k%[m, 17) +ki 
458 kp=b+3:gosub498:return 


<le> 
<ho> 
<ng> 
<pk> 
<pd> 
<ah> 
<nl> 
<ki> 
<jg> 


<nc> 
<bj> 
<mg> 
<ch> 
<ca> 


<hb> 
<ee> 
<nm> 
<pm> 
<ef> 
<ol> 
<mo> 
<ha> 


<ed> 
<da> 


<bm> 
<gg> 
<pe> 


<pf> 
<kf> 


<hc> 
<il> 
<ob> 


<1h> 
<fh> 
<cd> 


<nh> 
<no> 


<pa> 
<co> 
<ia> 
<lc> 
<bf> 


<lh> 


<ig> 
<pm> 


460 ifb/2=int(b/2)thencolor1,3,4:e 

lsecolor1,3,6 

478 char1,28,b+5,rn$:inputki:k%{m, 

b)=k%m,b)+ki:k%(m, 18) =k%(m, 18) +ki 

488 kp=b+5:gosub498: return 

498 char1,28,kp,b$+b4$+b3$:return 

5Sa®B rem abrechnung 

5194 b=1:fora=itoae 

528 ifb/2=int(b/2)thencolor1,7,4:e 

lsecolor1,7,6 

538 chari,hp,b+3,chr$( 18) :printusi 

ne AHRHHR” ;K%lm,b) 

548 b=b+1:next:color1,7,3:chart,hp 
‚b+3,chr$( 18) :printusing "HHHHtn ;R 

%[m, 17) 

558 chari,hp+6,b+3,chr$( 18) :printb 

3$ 

568 fora=itoaa 

578 ifb/2=eint(b/2)thencolor1,3,4:e 
lsecolor1,3,6 

588 chari,hp,b+5,chr$( 18) :printusi 

ng" HHHHHH” ;K%lm,b) 

598 b=b+1:next:color1,3,3:char1,hp 
‚„b+5,chr$( 18) :printusing ##H####";k 

%Cm, 18) 

688 chari,hp+6,b+5,chr$( 18) +b3$: go 

sub618:gosub71®@:return 

618 color1,7,3:char1,hp+8,3,"%":b= 
1:fora=1toae 

628 ifb/2=int(b/2)thencolor1,7,4:e 
lsecolor1,7,6 

630 ifk%lm,b)=Bthenchari,hp+6,bt+3, 

chr$( 18) :print” 88":goto658 

648 char!,hp+7,b+3,chr$( 18) :printu 

sing” ##" ;int( ((k%Lm,b) /k%[m, 17))*1 

88) +.5) 

658 chari,hp+6,b+3,chr$( 18) :print"” 
":b=b+1:next 

668 color1,3,3:char1,hp+t8,b+4,"%": 

fora=1toaa 

67a ifb/2=int(b/2)thencolor1,3,4:e 
isecolor1,3,6 

688 ifk%lm,b)=®thenchari,hp+6,b+5, 

chr$( 18) :print" 88":g0t078®8 

698 char1,hp+7,b+5,chr$( 18) :printu 
sing” ##" ;int( ((k%[m,b) /k%(m, 18))*1 

80) +.5) 

708 chari,hp+6,b+5,chr$( 18) :print” 
":b=b+1:next:return 

718 color1,2:charl,hp,23,chr$( 18): 

printusing AHHHHH" ;k%lm, 16) 

728 k%Lm, 19) =k%( m, 17)-k%(m, 18) 

738 color1,8,6:chari,hp,22,chr$( 18 

) :printusing "#HHHHH" ;k%Cm, 19) 

748 return 

758 color1i,2:char1,8,2,"":input"mo 

nat" ;m:ifm>12orm<ithensound1, 188, 1 

@:g0t0o758 


<ag? 
<jb> 
<lp> 
<ng?> 
<kn> 
<pj> 


<fc> 


<nc> 


<ga> 


<ih> 
<ii> 


<cj? 


<dk> 


<aj> 
<gj> 
<ph> 
<mo> 


<ce> 


<mh> 
<jp> 
<em> 
<em> 


<hn> 


<hd> 
<cb> 


<ai> 
<ge> 


<bb> 
<fl> 


<oj? 
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768 char1,8,2,z$:char1,8,2,"":inpu 
t"jahr ";j$:iflen( j$) >2thensoundl, 
108, 18:goto768 

778 ifj$=jv$thenreturn:elsejv$=j$: 
gosub 1614 

788 ifds<>@thenfora=1t012:forb=1to 
28:k% a,b} =@:next:next 

798 return 

800 char1,@,2,2$:color1,9,6:charl, 
hp+1,8,chr$( 18) :printusing”##";m 
818 charı,hp+5,8,chr$( 18) :printusi 
ng" #444" ; j$: return j 
820 rem notizeneingabe 

838 color1,6,6:char1,8,1,chr$( 18): 
print"#=return”b2$"#=clear"b2$"not 
izeneingabe "b5$ 

848 color1,2:nv=8:poke2822,2:scncl 
r:ifk%(m,28)=®thenk%[m,28)=1:goto8 
68 

858 fora=1tok%(m,28) :char1,2,a+4,n 
$(m,a) :next 

868 ifk%Lm,28) >18thengosub938 

870 char1,®,k%{m,28)+4,"":input”"; 
e$ ER 

B8Q ife$="#"thenfora=1to1ß:n$(m,a) 
="".K%Cm,28) =@:sound1,508,5:goto84 
R 

898 ife$="*"thenn$(m,a)=" ":poke2B 
22,2:scenclr:poke2822,®:return 

gaB ifnv=1Iande$<>"*"then87d 

g1@ iflen(e$)>37thengosub94:gotod 
78 : 

928 n$(m,k%(m,28))=e$:k%(m, 20) =K% 
m,28)+1:goto86B 

930 char1,8,2,"":printchr$( 18)chr$ 
(138)" notizspeicher voll! ":nv=1: 
return 

948 char1,18,2,"":printehr$( 1B)chr 
$( 130)” notiz zu-lang! " 

958 sound1, 188, 18:fora=1t0SB®:next 
960 char1,18,2,b$+b4$+b3$:poke2822 
‚k%(m,28)+4:scnclr:return 

978 return 

988 rem darstellung monatsbezogen 
998 senclr:color1,9,6:printchr$( 18 
)" monatsuebersicht"b$b$b2$ 

1088 color1,6,6:printchr$( 18) "*=me 
nue"b2$d$"=copy"”b2$"1,2=monat"b$b3 
$ 

1810 gosub2220 

1820 poke239,8:getkeyt$ 

1838 ift$="*"then13® 

1848 ift$=d$thengosub 1658 

10858 ift$="1"thenhp=29:gosub758:go 
sub8ß@:gosub51id. 

1058 ift$="2"thenhp=38:gosub?75B:go 
sub889:gosub518 

18708 goto1928 


<na> 
<no> 


<bh> 
<ma> 


<ad> 
<gh> 


<ce> 


<di> 


10888 rem notizendisplay 

1898 scnclr:color1,9,6:char1,8,8,;c 
hr$( 18) :print” notizendisplay"”b$b$ 
ba$ 

1188 hp=28:gosub750:gosub8d® 

1118 color1,6,6:char1,®8,1,chr$( 18) 
:print"*=menue"b2$d$"=copy"b$b$b4$ 
1128 fora=1tok%(m, 28) :ifa/2=intla/ 
2)thencolor1,2,4:elsecolor1,2,6 
1130 char1i,1,a+4,chr$( 18) :printz$: 
char1,1,a+4,chr$( 18) :printn$(m,a): 
next 

1148 poke239,8:getkeyt$ 

1158 ift$="*"then13d 

1168 ift$=d$thengosub 1658 

117@ gota1148 

1188 rem postendisplay 

1198 scnclr:color1,9,6:char1,®8,8,c 
hr$( 18) :print” postendisplay"b$b$b 


1288 hp=22:tp=8:gosub1278 

1210 poke?39,8:getkeyt$ 

1228 ift$="*"then13® 

1230 ift$=d$thengosub 1658 

1248 ift$="1"thenhp=22:tp=9:gosub1 


1258 ift$="2"thenhp=29:tp=28:gosub 


1268 goto1218 

1278 color1,6,6:char1,@,1,chr$( 18) 
:print"*=menue”b2$"artikelwahl mit 
kennbuchstaben” 

1288 gosub2228 

1298 poke239,8:getkeyt$ 

13008 ift$="*"then13® 

1310 kv=8:fora=1t019:ift$=ke$la)th 

enkv=a 

1328 next:ifkv>@then1338:else1298 
1338 color1,9,6:char1,tp,®,chr$( 18 

) :printc$(kv) :gosub 1480 

1348 color1,2:gosub768:char1,®8,2,b 

$+b2$ 

13508 color1,9,6:char1i,tp+16,®,chr$ 

(18) :print j$ 

1368 color1,6,6:char1,8,1,chr$( 18) 
:print”"*=menue"b2$d$"=copy"”b2$"1,2 

=artikel "b$ 

1378 gosub1388:return 

1388 fora=1to12:ifa/2=int(a/2)then 

color1,4,4:elsecolor1,4,6 

1398 chari,hp,a+3,chr$( 18) :printus 

ing" AHHHHH" ;k%la,kv) :next:return 

1498 poke2922,3:poke2824 ,28:scnclr 

:printchr$( 19) chr$( 19) 

1418 fora=1to12:ifa/2=int(a/2)then 

color1,4,4:elsecolor1,4,6 

1428 char1,1,a+3,chr$( 18) :printb2$ 

m$(a)b$:next:return 


<ec> 


Eee nn nn nn 
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1438 rem jahresuebersicht 
1448 scncilr:coLor1,9,6:char1,9,8,c 


hr$( 18) :print” jahresuebersicht"”b$ 


b$b2$ 

1458 gosub768:char1,18,8,chr$( 18): 
print j$ 

1468 color1,6,6:char1,8,1,chr$( 18) 
:print"*=menue"b2$d$"=copy"b$b$b4$ 
1478 gosub2228:char1,8,2,z$:chari, 
8,3,2$:char1,®,ae+5,z$:char1,8,22, 
z$:char1,90,23,z$ 

1488 hp=-3:form=1t012:gosub618:hp= 
hp+3:next 

1498 color1,2:char1,4,23,"ja fe ma 
ap ma ju ju au se ok na de" 

1588 poke239,8:getkeyt$ 

1518 ift$="*"then138 

1528 ift$=d$thengosub 1658 

1530 goto1548 

1548 rem disc-save 

1558 s$="s:”"+3j$+"-file”:open15,8, 1 

5,5$:close15 

1568 forb=1to12:forc=1to18:x$=left 
$(n$(b,c) , 1) :ifasc(x$)=8thenn$(b,c 
)J="#" 

1578 next:next:s$=j$+"-file,s,w":o 
pen 2,8,2,s$ 

1588 forb=1t012:forc=1to28:print#2 
‚k%Cb,c) :next:next 

1598 forb=1t012:forc=1to1@:printf#2 
‚n$(b,c) :next:next:close2:return 
1688 rem disc-load 

1610 s$=j$+"”-file,s,r"”:open1,8,8,s 

$ 

1628 forb=1to12:forc=1to2@:input#1 
‚k%Cb,c) :next:next 

1638 forb=1to12:forc=1to1@:inputf#1 
‚n${b,c) :next:next:closel:return 
1648 rem copy 

1658 color1,6,6:char1,11,1,"":prin 
tchr$( 18) chr$( 138) "copy" 

1668 open4,4:open3,3:char1,8,8,"”" 
1678 forz=8t024:c$="":k=40:fors=1t 

ok:get#3,a$:c$=c$+a$ 

1688 ifasc( a$) =13thens=s-1:c$="" 
1698 nexts 

1788 ifmid$(c$,k,1)=" "then:k=k-1: 

c$=1left$(c$,k) :ifk>@then 1788 

1718 print#4,c$:nextz:close3:close 

4 : 

1728 color1,6,6:char1,11,1,”":prin 

tchr$( 18) "copy" :return 

1738 rem hauptmenue 

1748 color@,1:color4,1:scnclr 

1758 color1,9,6:printrn$"$$$EHEHFFHF 

$55 budget-analyse $$EEEHHFEFFH" :c 

olori,2 

1768 char1,5,5,"# = einrichtung" 


<mj? 


<ja> 


<cn> 


<jf> 


<bi> 
<ji> 
<lk> 
<po> 
<kn> 
<gb> 
<hh> 


<ih> 


<jh> 


<mk> 
<hd> 
<mj?> 


<bp> 
<am> 


<pc> 
<hj> 


<fm> 
<pp> 
<ic> 


<ej> 


<ff> 
<gd> 
<nk> 


<hl> 
<pa> 
<ad> 


<hb> 
<ie> 


<ea> 
<jf> 
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1778 char1,5,7,"1 = 
/notizen” 


eingabe kosten 


1788 char1,5,11,"2 = monatsdisplay 
1798 char1,5,13,"3 = postendisplay 
1888 char1,5,15,"4 = notizendispla 
y" 

1818 char1,5,17,"5 = jahresuebersi 
cht” 

1828 return 

1838 rem anzahl einnahmen, ausgabe 
n 

1848 data6,9 

1858 rem kb,bezeichnung (max.15 bu 
chst.) 

18608 data”p","gehalt peter 

1878 data”b","gehalt beate 

1888 data"f","foto Dei 
1898 data"c", "computer 2 
1988 data”g"”,"gagen ” 
1918 data"z","zuschuesse 2 
1928 data"x","feste kosten ” 
1938 data”t”,"telefon " 
1948 data"1","lebensmittel = 
1958 data”k”,"”kleidung 

1968 data"”a”,"auto = 
1978 data”s”,"schule F 


1988 data"”y”,"foto-ausg. 
data”h”, "hobby ” 
data"g”,"sonstiges 
data"”£” ,"kontostand r 
data”+","summe einnahmen" 
data”-","summe ausgaben "” 
data"=","bilanz ” 
data” januar wi 
data"februar 
data”maerz 
data"april 
data”mai 
data” juni 
data” juli 
data"august 
data”september” 

data"oktober " 

data”november ” 

data"dezember " 

rem datas einlesen 

readae,aa ii 

2198 fora=1t019:readkc$(a),c$(a):n 


2288 fora=1tol2:readm$( a) :next:ret 


rem datas ausgeben 

2228 color1,7,3:print:printchr$( 18 
)chr$(29)" einnahmen"”b4$b5$ 

2238 b=1:fora=itoae 

2248 ifb/2=int(b/2)thencolor1,7,4: 


<oj> 
<il> 
<hk> 
<n1> 


<af> 
<sne> 


<eö> 
<pt> 


<mk> 
<Tp> 
<1f> 
<mm> 
<jm> 
<cco> 
za4> 
<ko> 
<nh> 
<na> 
<og> 
<dn> 
<gh> 
<pd> 
<km> 
<le> 
<bj> 
<if> 
<ap> 
<ad> 
<jm> 
<fb> 
<gg? 
<aj> 
<dl> 
<fg> 
<dj> 
<bf> 
<mn> 
<io> 
<hd> 
<lg> 
<zec> 
<mg> 


<cd> 


<pg?> 
<en? 


<bl> 
<pd> 
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elsecolor1,7,6 

2258 print” "kc$(b)chr$( 18)" = "c$ 
(b) :b=b+1:next 

2268 color1,3,3:print:printchr$( 18 
)chr$(29)” ausgaben”b$ 

2278 fora=1toaa 

2288 ifb/2=int(b/2)thencolor1,3,4: 
elsecolor1,3,6 

2298 print” "ke$lb)chr$( 18)" = "c$ 
(b) :b=b+i:next 

2388 color1,7,3:chari,1,ae+4,"":pr 


intke$t 17) chr$( 18)” = "c$L17) <ob> 
2318 color1,3,3:char1,1,aatae+6,"”" 
:printkc$( 18) chr$( 18)" = "c$( 18) <pl> 


2328 color1,2:char1,1,23,"":printk 
c$( 16) chr$( 18)" = "c$( 16) 
233@ color1,8,6:char1,1,22,"":prin 


tkc$( 19) chr$( 18)" = "c$[19) eng> 
2348 return <oi> 
2358 rn$=chr$( 18) :b$=chr$( 32) <oe> 
2368 b2$=b$+b$:b3$=b2$+b$ <ej> 
2378 b4$=b3$+b$:b5$=b4$+b$ <cp> 


2388 b$=b5$+b5$:d$=chr$( 94) :return <fg> 
2399 rem ===========5====2=2=======3 <pk> 


24008 rem 12277 bytes memory <le> 
2410 rem 87297 bytes program <kl> 
2428 rem 9119 bytes variables <dk> 
2438 rem 81212 bytes arrays <ap> 
2448 rem 81362 bytes strings <ki> 
2450 rem 92287 bytes free (8) <ee> 
2460 rem ========================= kp? 


Finanzminister 


Fortsetzung von Seite 56 


eine zugehörige Zahl mit maximal fünf Stellen einge- 
ben (plus RETURN). 

Falls Sie sich zu dem betreffenden Monat Notizen 
machen wollen (etwa Garantiezeit, Ratenzahlungen, 
Sonderausgaben), haben Sie nach Wahl des Notiz- 
Kennzeichens dazu Gelegenheit. Sie können sich pro 
Monat bis zu zehn Notizen machen. 

Die Wahl des Abschluß-Kennzeichens bewirkt das Zu- 
sammenrechnen und die Darstellung der Daten. Der 
Abschluß führt auch dazu, daß die eingegebenenen 
Daten während der Menü-Rückkehr abgespeichert 
werden. 


Innerhalb der Eingabe-Funktion ist es nicht notwendig, 


alle Daten eines Monats auf einmal einzugeben, da 
nach Wahl dieser Funktion alle bisher zu diesem Mo- 
nat/Jahr gespeicherten Daten einbezogen werden. Er- 
gänzungen sind jederzeit möglich und Sie können 
durchaus täglich oder wöchentlich eingeben. Auf glei- 
che Weise lassen sich Irrtümer durch Eingabe von Mi- 
nuszahlen korrigieren. Generelle Fehleingaben sind 
mit einer Löschung durch das Clear-Zeichen zu behe- 
ben, was nur den angewählten Monat beeinflußt. 

Zur Darstellung der gespeicherten Daten stehen Ihnen 
vier Menüpunkte zur Verfügung. 


Punkt 2 (Monatsdisplay): 

Nach Angabe von Monat und Jahr erscheinen alle Da- 
ten dieses Monats in der von der Eingabe her bekann- 
ten Form. Neben den Daten ist deren prozentuale Ver- 
teilung in Bezug zur Einnahme- oder Ausgabensumme 
angezeigt. Die „Bilanz“ stellt die Differenz zwischen 
beiden Summen dar. 

Die Wahl der Zahlen Eins und Zwei im Untermenü be- 
wirken einen erneuten monatsbezogenen Datenab- 
ruf. Sie können hierdurch Daten zweier Monate paral- 
lel darstellen und vergleichen. 


Punkt 3 (Postendisplay): 

AS werden Ihnen alle Einzelposten zur Auswahl 
gestellt. 

Nach Wahl eines Kennbuchstabens und nach Angabe 


- des betreffenden Jahres werden alle Daten des gewähl- 


ten Postens in Bezug auf die einzelnen Monate des ge- 
wählten Jahres dargestellt. _ 

Wie beim Monatsdisplay können Sie diese Daten mit- 
tels der Untermenüpunkte eins und zwei andern Da- 
ten eines beliebigen Jahres gegenüberstellen. 


Punkt 4 (Notizendisplay): 
Durch diese Funktion können Ihre monatsbezogenen 
Notizen abgerufen und dargestellt werden. 


Punkt 5 (Jahresübersicht): 

Alle Daten eines bestimmten Jahres werden in prozen- 
tualer Verteilung zur Einnahme- und Ausgabensumme 
angezeigt. 

Links stehen die Kennbuchstaben der Einzelposten, 
unten die Kürzel der Monatsbezeichnungen. 

Vor Gebrauch der Budget-Analyse ist ein Probelauf 
empfehlenswert. Peter Berger U 
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Di Bla 


SO PROGRAMMIERE ICH IN BASIC 


Strategiespiel 


Während die letzte Folge unserer BASIC-Reihe 
allgemeine Überlegungen und empfehlenswerte Vor- 
gehensweisen bei der Programmierung behandelte, 
geht es heute um die Frage, wie sich eigene Spielideen 
entwickeln’ und realisieren lassen. 


Obwohl es auch möglich 
ist, waschechte Action- 
programme in BASIC zu 
schreiben, ist das weite 
Feld der Strategiespiele 
wesentlich besser dazu ge- 
eignet, da die typischen 
BASIC-Nachteile (siehe 
erste Folge) hier weniger 
zum Tragen kommen. 
Strategiespiele sind dar- 
auf ausgerichtet, den 


Spieler intellektuell zu for- 


dern. Dies ist bei klassi- 
schen Brettspielen wie 
Schach, Halma, Mühle, 
Dame, Reversi, bei Lege- 
spielen wie Domino, Pa- 
tience, Mah Jongg oder 
Geduldspielen wie 
Rubic’s Cube der Fall. 
Im weiteren Sinne kom- 
men auch Spiele wie Mo- 
nopoly, Börse oder Me- 
mory in Betracht. 
Kommerzielle Compu- 
terspiele zielen meist dar- 
auf ab, den fehlenden 
Spielpartner durch den 
Computer zu ersetzen. 
Doch so ein Unterfangen 
würde die Programmier- 
künste eines normalen 
Sterblichen bei weitem 
überfordern, und BASIC 
wäre nicht unbedingt die 
geeignetste Programmier- 
sprache. 

Trotzdem gibt es auf dem 
Gebiet der Strategiespiele 
für den BASIC-Program- 
mierer mehr Möglichkei- 
ten, als man zunächst an- 
nimmt. Folgende Überle- 
Bann machen das deut- 


ch: 
Ein geübter Schächspie- 
ler wird beim Nachspie- 
len berühmter Partien 
schon oft den Wunsch ge- 
habt haben, nach dem 
zwölften oder 13. Zug 
ganz andere Wege gegan- 
gen zu sein. Aber weiß er 
noch, wie bei diesem 
Zug die Figuren gestan- 
den haben? Mit einem 
einfachen BASIC-Pro- 


gramm kann dem Manne 
geholfen werden. Zwar 
können Sie einwenden, 
daß jedes mittelmäßige 
Schachprogramm diese 
Funktion als Standard 
habe; Sie werden aber 
Mühe haben, etwas Ad- 
äquates für aktuelle 

oder unpopuläre Spiele 
zu finden. 

So gerne Sie auch Mo- 
nopoly oder Börse spie- 
len mögen, die lästige 
Rechnerei kann alles ver- 
miesen. Es dürfte eine 
Sache von zwei bis drei 
Abenden sein, ein perfek- 
tes Monopoly-Buchhal- 
tungs-Programm auf die 
Beine zu stellen. Kom- 
plizierte, aber reizvolle 
Finanzspiele bekommen 
durch solche Hilfspro- 
gramme einen ungeahn- 
ten Komfort. 
Konventionelle Strategie- 
spiele sind logischerwei- 
se an bestimmte Materia- 
lien wie Spielbretter, 
Spielsteine, Karten oder 
sonstige Hilfsmittel ge- 
bunden; Ihr Computer 
dagegen nur an Ihre Fan- 
tasie. Das bedeutet, Din- 
ge programmieren zu 
können, die in der Reali- 
tät nicht herstellbar wä- 
ren oder deren Handha- 
bung zu umständlich 
wäre. 

Der Zauberwürfel als 
Hexaeder dürfte als 
BASIC-Gebilde leicht 
machbar sein, würde aber 
jeden Spielzeug-Kon- 
strukteur an den Rand 
der Verzweiflung treiben. 
Mühle in drei Etagen zu 
spielen, ist auf dem C16 
das reine Vergnügen, er- 
weist sich aber als Plexi- 
glasmodell als Flop we- 
gen der umständlichen 
Handhabung. 

Sie können den Gedan- 
ken noch weiter spinnen. 
Nichts hält Sie davon ab, 


„jebendige‘‘ Spielbretter 
zu konstruieren, die sich 
gemäß den Spielzügen 
verändern oder tücki- 
sche, unsichtbare Fallen 
enthalten. Auch Spielfi- 
guren können im Com- 
puter mühelos während 
des Spielverlaufs andere 
Eigenschaften anneh- 
men. All diese Möglich- 
keiten sind außerhalb 
des Computers undurch- 
führbar und warten ge- 
radezu darauf, von Ihnen 
auf dem C16 verwirk- 
licht zu werden. 
Bekannte Spiele wie 
Schach oder Dame kön- 
nen mit dem Computer 
auf interessante Weise 
verändert werden. Zum 
Beispiel ließe sich 
Schach perspektivisch in 
BASIC programmie- 

ren, wobei nur die Figu- 
ren dirigierbar wären, 
die aus der Sicht des 
Königs verfügbar sind. 
Trotzdem gibt es relativ 
wenig neue Strategiespie- 
le für Ihren Computer 
zu kaufen. Ein Grund 
kann sein, daß gute 
Spielideen auf dem Soft- 
waremarkt recht rar 

sind und dieser Faktor 
bei Strategiespielen stär- 
ker zum Tragen kommt 
als bei allen anderen Gat- 
tungen. Nebenbei er- 
wähnt, waren Software- 
Zeitschriften schon im- 
mer ein beliebtes Forum 
für ungewöhnliche und 


reizvolle Strategiespiele. 


DER DREH _ 
MIT DEM WÜRFEL 


Viele dieser Gesichts- 
punkte werden Sie in un- 
serem Beispielprogramm 
PAINTER wiederfin- 
den: 


& PAINTER ist ein Ge- 
dulds- oder Strategie- 
spiel für den Einzelspie- 
ler, dessen Spielmotiva- 
tion in der Aufgaben- 
stellung begründet ist. Es 
braucht also keinen com- 
putergesteuerten Gegen- 
spieler. 

® Die Spielfläche ist nur 
mit Computer realisier- 
bar. 

® Der Spielsinn ist da- 
durch gegeben, daß sich 
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die zn während 
der Züge verändert. 
Anhand dieses Pro- 
gramms können Sie un- 
ter anderem lernen, wie 
Sie Joysticks program- 
mieren und dimensio- 
nierte Variablen handha- 
ben und nutzen können. 
Zudem soll im Anhang 
gezeigt werden, wie Sie 
kleine Melodien selbst 
programmieren und in 
Ihre Programme ein- 
bauen. 

Die Grundidee zu diesem 
Spiel entwickelte sich 
beim Betrachten mehre- 
rer Würfel, die zufällig 
nebeneinander standen. 
Ich stellte es mir als reiz- 
voll vor, ein Würfelfeld 
so zu manipulieren, daß 
ein darüberwandernder 
Stein die Würfel in Zug- 
richtung drehen würde; 


‚mit der Spielaufgabe, 


daß nach möglichst weni- 
gen Zügen alle Würfel- 
Oberseiten die gleiche 
Augenzahl haben müß- 
ten. Das ließ sich im klei- 
nen Rahmen mit neun 
Würfeln ausprobieren. 
Als störend erwies sich 
aber, daß die Unterseite 
nie sichtbar war. 

Doch habe ich es ja gar 
nicht nötig, bei meinem 
C16 von sechs Seiten 
auszugehen, es könnten 
ebenso fünf sein. Wenn 
ich statt Augen Farben 
nehme und meine Spiel- 
felder so konstruiere, 
daß ich die Oberseite 
groß und hell, die angren- 
zenden Seitenflächen da- 
gegen schmal und dunkel 
darstelle, müßte die Sa- 
che spielbar sein. 

Meine Idee in Stichwor- 
ten: 


® Ein Spielfeld aus vier- 
mal sechs Einzel- 
feldern. 


9 Jedes Einzelfeld ent- 


hält fünf verschiedene 
Farben, die auf eine 
Oberfläche und vier an- 
grenzende Seitenflächen 
verteilt sind. 

® Gespielt wird mit ei- 
nem Cursor, der mit 
dem Joystick verschieb- 
bar über die Einzelfel- 
der wandern kann. 

@ Gelangt der Cursor auf 
ein Einzelfeld, so wird 


a 


TONDAUERTABELLE 


Note Pause Bezeichnung Werte 


langsam schnell 


"= ganze - 80 60 


halbe — 40 30 


viertel— 
achtel — 


sechzehntel-— 


VARIABLENLISTE: 


Dimensionierte Variablen: 
F% (10) Werte der Farbtabelle 

FP% (10) Vertikale Positionen innerhalb 

der Farbtabelle 

Spielfeld (Farbwerte) 

S%(1,H,V) Obere Seitenfläche 
S%(2,H,V) Rechte Seitenfläche 
S%(3,H,V) Untere Seitenfläche 
S%(4,H,V) Linke Seitenfläche 
S%(5,H,V) Oberfläche 


5% (5,6,4) 


Undimensionierte Variablen: 


AB: = Universelle Variablen 

H = Horizontale Spielfeldposition 
(rechnerisch) 

HG = Horizontale Spielfeldposition 
(grafisch) 

HS = Highscore 

P = Punkte 

S1,52,S3 = Speichervariablen von 5% 

SR = Speichervariable von S% 

V = Vertikale Spielfeldposition 
(rechnerisch) 

VG = Vertikale Spielfeldposition. 
(grafisch) 

x = Zufallszahl 

01$ = RvsON 


Rvs OFF 


die Seitenfarbe der Zug- 
richtung zur Oberflä- 
chenfarbe; die Ober- 
flächenfarbe wird zur 
gegenüberliegenden Sei- 
tenfarbe. Die gegen- 
überliegende Seitenfar- 
be wird zur Seitenfarbe 
der Zugrichtung (Ro- 
tation). 


@ Es soll mit möglichst 
wenigen Zügen er- 
reicht werden, daß alle 
Oberflächen gleichfar- 
big sind. 

® Zur Kontrolle werden 
die Farbcodes aller 
Oberflächen zahlen- 
mäßig angezeigt. 

Folgende Unterprogram- 


me habe ich vorgesehen: 


9500 Ende 

9100 Ausgangswerte für 
neue Spielrunde 

9000 Ausgangswerte für 
Programmbeginn 

8200 Zuweisung der 


Farben 
8000 Spielfeldaufbau 
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5200 Highscore-Anzeige 

5100 Punktanzeige 

5000 Farbtabelle 

4000 Einzelfelddar- 
stellung 

2100 Cursor löschen 

2000 Cursor setzen 

1000 Routinen zur Ver- 
schiebung der 
Farben 

300 Joystickabfrage 


Diese Aufteilung ist recht 
willkürlich und könnte 
auch anders aussehen. 
Für mich war es nur 
wichtig, daß die oft be- 
nötigten Unterprogram- 
me (5100, 5000, 4000, 
2100, 2000 und 1000) 
möglichst nah an der 
Stelle sind, von der sie 
am häufigsten abgerufen 
werden. In diesem Fall 
sind es Joystickabfrage 
und Verschiebungsrouti- 


nen. 

Eine Bildschirmskizze er- 
übrigt sich. Da ich 25 
mal 40 Felder zur Ver- 
fügung habe, gestalte ich 
die Einzelfelder des 
Spiels so, daß die Seiten- 
flächen die Breite eines 
Buchstabens, die Ober- 
flächen die Breite dreier 
Buchstaben haben, wo- 
durch folgende Form 
zustande kommt: 


Jedes Einzelfeld nimmt 
also auf dem Bildschirm 
fünf mal fünf Buchsta- 
benplätze in Anspruch. 
Unter Berücksichtigung 
seitlich plazierter An- 
zeigen und einer unten- 
stehenden Kurzanlei- 
tung ergibt sich ein Spiel- 
feld aus sechs mal vier 
Einzelfeldern. 

Um die angrenzenden 
Seitenflächen separat zu 
halten, griff ich auf den 
Grafikzeichen-Vorrat 
des C16 zurück: 


WICHTIGE RECHTLICHE 
GARANTIE! Verlag widerrufen — Postkarte ge- 


Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 


der Abo-Bestätigung durch den 


nügt. Zur Wahrung der Frist genügt 
die rechtzeitige Absendung. An- 


INS HAUS 


Finden Sie Ihr C16/P4 nicht am Kiosk? Weil es schon 
ausverkauft ist? Oder „Ihr‘” Kiosk nicht beliefert 
wurde? Kein Problem! Für ganze 70 DM liefern wir 
Ihnen per Post sechs Hefte ins Haus (Ausland 80 DM). 
Einfach den Bestellschein ausschneiden — fotoko- 
pieren oder abschreiben, in einen Briefumschlag und 
ab per Post (Achtung: Porto nicht vergessen). C16/P4- 
SPECIAL kommt dann pünktlich ins Haus. 


sonsten läuft dieser Auftrag je- 

weils für sechs Ausgaben, wenn 

ihm nicht vier Wochen vor Ablauf 
widersprochen wird, weiter. 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
KOSTENLOS! 


Das bietet Ihnen COMMODORE-WELT: KLEIN- 
ANZEIGEN SIND KOSTENLOSE FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu täuschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach ‚geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele- 
fonnummer sollten acht Zeilen & 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In- 


serenten kostenlos. Gewerbliche Anzeigen kosten pro 
Zeile 4,80 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, "abzulehnen! 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes abhängig! 
Wir behalten uns vor, Anzeigen, die nicht zum The- 
menkreis des Heftes —- Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeigenteils zu- 
läßt. 
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Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedin- 
gungen die Listings dieses Heftes auf 


OD) Diskette (30 DM) D Kassetten zu 40,- 
Name 
Vorname 
Straße/Hausnr. 
PLZ/Ort 
Ich bezahle: . 

OD per beiliegendem Verrechnungsscheck / Bargeld 2 © 

OD bargeldios per Bankeinzug von meinem Konto (nur möglich in der Bundesrepublik!) 

bei(Bank)undOrtt ______ 1171717777111 
Kontonummer 
Bankleitzahl 
(steht auf jedem Kontoauszug) 

Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Umtausch bei Nichtfunktionieren. 


Unterschrift 
Bitte ausschneiden und einsenden an 


COMMODORE WELT 
KASSETTENSERVICE 16/1V 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


ee a a tn a ee a Bu u ur a u DE — 


ANZEIGENSERVICE 


Die große Börse für jeden Zweck in der C16/PA-SPECIAL. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. 
Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensichtlich 
gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vorbehalten müssen, insbe- 
sondere, wenn deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufge- 
nommen. Für gewerbliche Anbieter DM 4,80 pro Zeile zuzüglich gesetzlicher Mehrwertsteuer. 


COMMODORE WELT a 
ANZEIGENABTLG orname 
POSTFACH 1161 Straße/Hausnr. 


D-8044 UNTERSCHLEISSHEIM Piz/Ort 
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ie Redaktion von 
D- & Run wurde 
mal wieder vom Fie- 


ber befallen. Kaum waren die 
Epidemien Shanghai und 
Tetris überstanden, machte 
sich eine neue Krankheit 
breit, der sich keiner der 
Redakteure erwehren konn- 
te.Ichspreche vom neuesten 
Amiga-Game: ‚Ports of Call’. 
Dieser Handelsimulation ist 
für kurze Zeit sogar unser 
Verleger zum Opfer gefallen. 
Leider hat diese Krankheit 
aber auch einen Haken: Ist 
ein Spieler lange genug infi- 
ziert, so verflüchtigt sie sich 
wieder mit einem Schlag. 
Nach langem Spiel deckte 
unser Verleger einige sehr 
bedeutende Schwächen und 
Schlampereien in der Pro- 
grammierung auf, die den 
Spielwitz erheblich senken 
oder gar völlig verschwinden 
lassen. So wurde durch 
schlampige Arbeit einmal 
mehr ein hervorragendes 
Spiel kaputtgemacht. Doch 
mehr dazu im ausführlichen 
Testbericht in dieser Aus- 
gabe. 

Ansonsten finden Sie in die- 
ser Ausgabe wieder alles wie 
gewohnt vor. Ausführliche 
Spieletests berichten über 
die neuesten Games, Kurz- 
berichte behandeln die Um- 
setzungen und Neuerschei- 
nungen auf dem Spiele- 
markt, und diePlayer'sPages 
geben Hilfestellung für jeden 
verzweifelten Joystick-Akro- 
baten. Ich hoffe, es ist für 
jeden etwas dabei. 


Viel Spaß beim Lesen 
wünscht Ihnen die Redaktion 
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Jetzt brauchen 
auch die Amiga- 


Besitzer nicht länger zu 


trauern. Mastertronic bringt in diesen 
Tagen eine Darts-Simulation auf den Markt. 


eim Darts-Spiel müs- 
= sen Sie durch ge- 

schicktes Pfeilwerfen, 
im Volksmund auch „Spik- 
kern“ genannt, Ihren Punk- 
teabstand so schnell wie 
möglich auf Null bringen. 
Bis zu zwei Spieler können 
an der Darts-Simulation von 
Mastertronic teilnehmen. 
Wenn man mit Werfen an der 
Reihe ist, erscheint auf dem 
Bildschirm die Darts-Schei- 
be und eine Hand, welche 
einen Pfeil hält und leider 
ständig hin und her wackelt 
(fast wie in der Realität). Mit 
dem Joystick müssen Sie die 
Hand in die richtige Position 
bringen und anschließend 
mitdem Feuerknopf den Pfeil 
werfen. Danach schreibteine 
weitere Hand Ihren aktuellen 


Punktestand auf die neben- 
stehende Tafel. Sieger istder- 
jenige Spieler, der zuerst bei 
Null angelangt ist. 

Grafisch ist World Darts sehr 
gut gemacht. Viele kleine De- 
tails wie zum Beispiel wech- 
selnde Gesichtszüge einer 
passiven Spielfigur sorgen 


Titel: 
Getestet: 
Umsetzun 


Barts 


Grafik 
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Bedienung 
Motivation 


immer wieder für ein kle 

Schmunzeln.  Digitalisierte 
Soundeffekte lockern die 
Atmosphäre zusätzlich auf. 
Wer sich für den Darts-Sport 
begeistert und zudem noch 
einen Amiga mit mindestens 


Preis (DM): 


512 Kbyte RAM und einen 
Farbmonitor besitz, kann 
sich World Darts ja mal 
ansehen. TBH 


DI Joystick 
[J Tastatur 


still alive, u. 


Reihe reißt nicht ab. Auch 
für den Amiga gibt es jetzt ein solches Game. 


ine hervorragende 
= Adaption der beliebten 
Boulder-Dash-Reihe 


liegt jetzt auch für den Amiga 
vor. Das Spielprinzip ist das- 


selbe geblieben. Rockford° 


besitzt aber im Gegensatz zu 
seinen Vorgängern viele 
neue Features, die das Spiel- 
geschehen auflockern. So 
können Sie sich zu Beginn 
des Spieles eine von fünf 
Rockford-Figuren aussu- 
chen. Je nach Spielfigur än- 
dert sich der Aufbau des 


Spielfeldes. Haben Sie sich 
beispielsweise für Rockford, 
den Meisterkoch entschie- 
den, finden sie sich in einem 
Chaos aus Bestecken, Tel- 
lern und Tischen wieder. 
Glauben Sie aber nicht, daß 
sich am Spiel etwas ändert, 
denn auch hier müssen Sie 
Objekte sammeln und dabei 
aufpassen, daß Sie nicht 
von herunterfallenden Sup- 
penschüsseln zerschmettert 
werden. 

Jedes Spielfeld ist in vier 


Level unterteilt, die mit stei- 
gender Nummer schwieriger 
werden. Unter anderem 
nimmt die zur Verfügung 
stehende Zeit immer schnel- 
ler ab. 

Rockford istgrafisch sehr gut 
gelungen. Auch über man- 


gelnde Sounduntermalung 
kann sich der Spieler nicht 
beklagen. Das Spiel kann ich 
jedem empfehlen, der einen 
Amiga mit Farbmonitor 
besitzt und noch nicht ge- 
nug von der Boulder-Dash- 
Welle hat. TB 


Anzeige 


Immer die neueste 
Software zu absolut 


coolen Preisen! 
Testen Sie uns noch 

heute, wir sind 
jederzeit für Sie da! 


B=4 Andreas Bachler 
Fe Postfach 429 
u 5 D-4290 Bocholt 


(A Tel. (0 28 71) 
’ 1830.88 


‚ie ie 


Elite, der Spezialist 


„re? in Sachen Spielauto- 


maten-Umsetzungen, hat 
wieder zugeschlagen. Ein gut aufge- 


machtes Ballerspiel für denSTistdasErgebnis. 


ange Zeitwaresstillum 
L® englischen Soft- 

warehersteller Elite-Sy- 
stems Limited, doch jetzt 
endlich gibt es ein neues 
Spiel, erhältlich für den © 64 
und den ST. Die Spielidee 
kann man nicht mehr als alt 
bezeichnen, uralt trifft wohl 
eher zu: Ein unbekanntes 
Land wird von den Mächten 
des Bösen unterdrückt. Nach 
heftigen Diskussionen be- 
schließt man, einen einsa- 
men Helden, der zufälligüber 
neun Leben verfügt, hinab in 
die Dungeons zu schicken, 
damit er den Zauberern und 
ihren Monstergehilfen ein für 
allemal den Garaus macht: 
Es darf geballert werden. 
Trotz der etwas einfallslosen 
Spielidee dürfen Sie aber 
nicht glauben, daß auch das 
Game selbst verschrottet ge- 
höre - im Gegenteil! Beyond 
The Ice Palace ist ein gutes 
bis sehr gutes Jump-and- 
run-Spielmithervorragender 


gend 


Grafik und zahlreichen Bild- 


schirmen. Ein für ST-Verhält- 
nisse sehr 
Scrolling und gelungen ani- 
mierte Sprites sorgen für 
einen flüssigen Spielablauf. 
Auch die passenden Sound- 
effekte lockern die Atmo- 
sphäre stark auf. 

Auf dem Weg durch die 
Dungeons sind neben den 
Gegnern auch zahlreiche 
Hindernisse wie tiefe 
Schluchten oder steile Berg- 


hänge zu überwinden. Die 


Titel: 
Getestet: 
Umsetzun 


im Test: 
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Bedienung 
Motivation 


‚Gute Nachrichten 


für alle Amiga-Besitzer: 
Wer vor einem Jahr noch 

EE mit neidischen Blicken auf 
- Westbank für den CPC geschaut 


ordentliches 


Beyond The Ice Palace 
Atari ST 


hat, darf dieses Game jetzt auch auf 


seinem Amiga spielen. Gunshoot ist da. 


xxion hat ein derUm- 


setzung von Westbank 
angenommen. Und 


Se die Amiga-Version noch 
ein paar Features mehr bot 
als die des CPC, hat man ihr 


| at einen neuen 
Gunshoot, was 


neun Leben Ihrer Spielfigur 
sind wirklich nicht zu viel. 
Beyond The Ice Palace ist für 


Freunde und Liebhaber der 


Jump-and-run-Spiele 
absolutes Muß. Wer noch 
Rien allzu er an 


Preis (DM): 


verpaßt: 


en 


X Joystick 
[JS lastatur 


übersetzt. etwa ‚Revolver- 
’ schuß. heißt. Für. Nicht-Ken- 
ner von Westbank hier kurz 


die Handlung: 


Sie sind ein kleiner Bankan- 
| gestellter und ‚möchten ger- 


ne ein Held sein. Deswegen 
kommt Ihnen auch der ‚Um- | 
stand, daßinletzter Zeitziem- ı; 
lich viele Banken überfallen. 
wurden, gerade. recht. Mit 


‚einem 45er Revolver. bewaff- 
} net, warten. ‚Sie hinter Ihrem 
Schalter auf Banditen. Dar- 


"um herum sind zwölf Türen, 
die Sie Sand] im Auge be- ; 


IV 


Pi 


‚sich dasGamesoschnellwie 


einer Sammlung hat, sollte 


möglich zulegen. Die Atari- 
ST-Version benötigt übrigens 
ROM-TOS und einen Farb- 
monier oder  TV-Modulator. 


zwei und Personen betreten 


die Bank. Sind diese aber | in 


Vermögen anzulegen” a 
wollen sie gar die Bank um 
‘ein paar Tausender erleich- 
‘tern? ; 


Keine Chance für 


I Bankräuber 


_ Beobachten Er A Leute 
genau. Es kann sehr schnell 
passieren, daß, plötzlich einer 
seinen Colt zieht. Manche 
"kommen sogar schon be- 


Haben Sie 
Eu 


waffnet herein. Sie müss 
augenblicklich _reagiere 
wenn Sie einen Überfall ver- 
eiteln wollen. Dazu bewegen 
Sie mit dem Joystick ein 


] Sound 
| Bedienung 
'LMotivation 


Vorsicht: ahn! 


Grafik 


Ein einfaches Puzzle- 


Spiel - das suggeriert die Auf- 


machung von Powerstyx. Doch hinter 
diesem Namen verbirgt sich sehr viel mehr. 


verschiedene Bilder freile- 

gen, die zu Beginn noch 
unsichtbar sind. Mit einem 
Cursor, der nur mit dem Joy- 
stick gesteuert werden kann, 
schneiden Sie aus dem Bild- 
schirm beliebig große Recht- 
ecke heraus. Dadurch wird 
ein Teil des verdeckten Bil- 
des sichtbar, der jeweils so 
groß istwie das ausgeschnit- 
tene Rechteck. Sindmehrals 
75 Prozent des Bildes freige- 
legt, gelangen Sie in den 
nächsten Level. Es gibt15 Bil- 
der zu entdecken, jedes re- 
präsentiert einen Level. 
Mit dem Cursor Rechtecke 
ausschneiden - das klingt 
doch wirklich nichtschwierig. 
Und tatsächlich weckt das 
Game zunächst keine große 
Begeisterung. Mißmutig be- 


! n Powerstyx müssen Sie 


wege ich meinen Cursor 
über den Bildschirm. Hier ein 
Rechteck, da ein Rechteck. 
Doch was ist das? Aus der 
linken oberen Ecke tauchen 
plötzlich zwei Totenköpfe auf, 
die meinen Linien folgen. Da 
die beiden nicht gerade ver- 
trauenerweckend aussehen, 
entschließe ich mich zur 
Flucht nach hinten. Doch di- 
verse fliegende Buchstaben 
versperren mir .den Weg. 
Nach wenigen Sekunden 
gebe ich den Kampf auf - 
und bin eines meiner fünf 
Leben los. 

Der zweite Anlauf gelingt 
endlich. Nach knapp vier 
Minuten, die zu 80 Prozent 
aus Flucht vor diversen bös- 
artigen Sprites bestehen, ist 
das erste Bild freigelegt oder 
besser gesagt: 75 Prozent 


Bunshoot 


Preis (DM): 


davon. Das Bild wird kom- 
plett aufgebaut und ich kann 
mich knappe 30 Sekunden 
lang auf die wirklich einmalig 
schöne Grafik konzentrieren. 
Noch bevor ich mich richtig 
sattgesehen habe, ertönt ein 
akustisches Warnsignal und 
der Bildschirm wird wieder 
schwarz, was den nächsten 
Level ankündigt. Nun gut, ich 
habe den ersten in nur vier 
Minuten überstanden, da 
wirft mich der zweite auch 
nicht um - denkste! Die flie- 
genden Totenschädel haben 
Verstärkung bekommen und 
auch die restlichen Sprites 
scheinen wesentlich angriffs- 
lustiger. Nach drei Minuten 
muß ich kapitulieren, da mei- 
ne Leben aufgebraucht sind. 
Ein neuer Start, ein neues 
Spiel. 


Untermaltwird das Spektakel 
von diversen Hintergrundge- 
räuschen, die nicht sonder- 


&X] Yaystick 
[_] Tastatur 


lich gut gelungen sind. Das 
fällt aber nicht allzu stark ins 
Gewicht, da sich der Spieler 
ständig auf das Spielgesche- 
hen konzentrieren muß. Bis 
in den 15. Level habe ich es 
zwar nicht geschafft, aber die 
hervorragende Qualität der 
Grafiken dürfte sich wohl 
kaum verschlechtern. Übri- 
gens sind die Bilder bei der 
C64-Version fast bessser als 
die der Amiga-Version. Auch 
läuft auf dem C64 alles ein 
klein wenig schneller ab. 
Aber keine Angst, liebe Ami- 
ga-Freaks, auch die 
Geschwindigkeit auf dem 
16-Bit-Computer reicht dop- 
pelt und dreifach aus. 
Powerstyx sollte in keiner 
Sammlung fehlen. Ich kann 
es nur wärmstens weiter- 
empfehlen. Doch lassen Sie 
sich warnen: Wer es einmal 
gespielt hat, kommt so 
schnell nichtmehr davon los. 
Thomas Bosch 3 
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Stellen Sie sich vor, 


Sie bekommen fünf Millionen 

: Dollar und wollen daraus 500 Millio- 

nen Dollar machen. Bei Ports of Call 

kann das leicht gelingen. Wer sich aller- 
dings keine Mühe gibt, bei dem wird bald 
der Pleitegeier über der Reederei schweben. 


orts of Call ist ein Spiel, 
» bei dem der Spieler die 

Rolle eines Reeders 
übernimmt. Mit fünf Millionen 
Dollar müssen nach dem 
Spielstart erst einmal Schiffe 
gekauft werden. Am. billig- 
sten sind Low-Coast-Ships, 
diese sehen allerdings auch 
so aus. Die verbeulten Kähne 
sollten erst einmal repariert 
werden. Der Zustand des 
Schiffes wird in jedem Hafen 
angegeben, die Tauglichkeit 
sollte niemals 60% unter- 
schreiten, da sonst das Schiff 
von einer Rattenplage befal- 
len werden und später sogar 
untergehen kann. Ist das 
Schiff also gerade noch 
schwimmfähig, kann die La- 
dung ausgewählt werden. 
Manche Güter können sehr 
viel Frachterträge bringen, 
doch bei der Auswahl ist auf 
sehr viele Dinge zu achten: 
Wie weit ist es vom Startha- 
fen zum Zielhafen, wieviel 
Treibstoff wird verbraucht, 
lohnen die Frachten am Ziel- 
hafen, wie hoch ist die Ge- 
fahr, Eisberge oder Riffe um- 
fahren zu müssen, sind in 
diesem Gebiet viele Stürme 
oder drohen Freibeuter den 
Tanker zu plündern ? Ist die 
richtige Entscheidung gefal- 
len, kann esschon losgehen. 
Zum Ablegen können 
Schlepper zu Hilfe genom- 
men werden, diese kosten 
allerdings auch Geld. Außer- 
dem ist auf die Schlepperka- 
pitäne auch kein Verlaß, hin 
und wieder streiken diese 
und da ein Reeder keine Zeit 
zu verlieren hat, heißt es, 
selbst im Hafen ab- bzw. an- 


zulegen. Dies hört sich zwar 
sehr einfach an, muß aber 
erst einmal ausdauernd 
geübt werden. Ein kleiner 
Crash gegen die Hafen- 
mauer kostet nämlich viel 
Zeit und Geld. Sobald das 
beladene Schiff sicher den 
Hafen verlassen hat, kann 
der Spieler auf der Weltkarte 
sein kleines Schiff entlang- 
tuckern sehen. Unterwegs 
kann auch so manches Er- 
eignis geschehen, so ist es 
manchmal nötig, einem 
Sturm auszuweichen oder 
Schiffbrüchige zu retten. Im 
Zielhafen heißt es, nach 
neuen ertragreichen Ladun- 
gen umsehen. Ist keine ge- 
winnbringende Fracht in 
Sicht, Kann ja mal das Schiff 
auf Vordermann gebracht 
werden. Nach ein paar 
Tagen, das Schiff glänzt nun 
wieder in. der Abendsonne, 
muß dann Geld verdient wer- 
den.Deshalb sollten Häfen, in 
denen es keine ertragrei- 
chen Güter gibt, gemieden 
werden. 

Dunkle Geschäfte können 
natürlich auch getätigt wer- 
den. Füreinen Schrankkoffer, 
der irgendwo im Schiff ver- 
steckt wird, erhältder Reeder 
in den meisten Fällen 
100.000 Dollar. An 50 Kisten 
Waffen hingegenkannschon 
einmal eine Millon Dollar ver- 
dient werden. Nur: Der Zoll 
findet diese Schmugglerei 
nicht so toll. In den meisten 
Fällen genügt aber ein safti- 
ges Schmiergeld, um das 
betroffene Schiff wieder frei- 
zukaufen. Sind die ersten 20 
Millionen Dollar erwirtschaf- 


V 


tet, kann der Reeder ein 
High-Tech-Schiff mit Quer- 


strahlruder anzahlen. Mit 
40% Anzahlung kann sich 
fastjede Reederei dieses Su- 
perschiff leisten. Aber aufge- 
paßt, mehr als 40 Millionen 
Dollar sollte für so einen gro- 
ßen Pott nicht bezahlt wer- 
den. Natürlich hat jeder Ree- 
der auch ein Büro, von hier 
aus können die Gewinne und 
die Verluste abgefragt wer- 
den, Hypotheken getilgtoder 
Kredite aufgenommen wer- 
den. Falls mal irgendwann 
die Geschäfte nicht mehr so 
gut laufen, kann mit dem Me- 
nüpunkt Registerwechsel 
der Heimathafen des Ree- 
ders gewechselt werden. Zu 
den ertragreichsten Fracht- 
routen gehören: Rotterdam - 
Kalkutta und Vancouver - 
Karachi. 

Mittlerweile wird dieses Spiel 
so gepriesen, als ob es 
noch kein besseres Wirt- 
schaftsspiel gegeben hätte. 
Anfangs macht es sicherlich 
unwahrscheinlich viel Spaß. 
Doch nach einigen Tagen, 
wenn der Spieler genug Geld 
erwirtschaftet hat, verschwin- 
det die Spieldiskette wieder 
in der Versenkung. Denn die 
Fehler, die dieses Spiel hat, 
machen es nach einer ge- 
wissen Zeit total lächerlich. 
Das fängt schon damit an, 
daß ein auf Reede liegendes 
Schiff in Rio de Janeiro von 


einem Eisberg gerammtwer- 
den kann. Es kann weiter mal 
passieren, daß einem Spieler 
unterwegs der Treibstoff aus- 
geht. Das betroffene Schiff 
muß dann natürlich abge- 
schleppt werden. 

Doch wenn im Hafen wieder 
aufgetanktwerdensoll, istder 
Dieselbunker noch fast voll. 
Dem Milliardär macht dieses 
lächerliche Milliönchen Ab- 
schleppkosten überhaupt 
nichts aus. Doch der kleine 
Reeder sieht mal wieder den 
Pleitegeier. 

Oder folgender Fall tritt ein: 
Wegen mangelnder Aufträge 
müssen die Schiffe im Hafen 
festgemacht werden. Diese 
Schiffe rühren sich dann, für 
die angegebene Zeit, nicht 
mehr vom Fleck. Doch wenn 
dann ein anderes Schiff den 
„Kurs“ des eigenen Pottes 
kreuzt, welches man mittels 
einem Radar umfahren soll- 
te, muß man sich schon an 
denKopf greifen. Das gleiche 
Desaster haben die armen 
Freibeuter, diese greifen 
meisterstan, wenn dasSchiff 
leer im Hafen liegt oder sie es 
bereits ausgeraubt hatten. 
Wenn beim Einlaufen mal 
wieder die Schlepperkapitä- 
ne streiken sollten, ist es 
immer billiger, das Schiff 
rückwärts aus dem Hafen zu 
steuern, denn der Strafzettel 
ist allemal niedriger als die 
folgenden Reparaturkosten- 


Rechnung. Daß ein Schiff 
mal auf Kollisionskurs fahren 
kann, ist die natürlichste Sa- 
che der Welt, aber dann dem 
geisterfahrenden Schiff im 
Rückwärtsgang zu entflie- 
hen, ist sicher keine Lösung. 


Irgendwann mal kommt der | 
Tag, an dem sich der Spieler 
entscheidet, 100 High-Tech- 
Schiffe zu kaufen. Das benö- 
tigt dann schon eine Ewig- 
keit, aber dann den Spieler 


hunderffach zu zwingen, 


alle seine noch im Hafen 
liegenden Schiffe aus dem 
Kollisionsbereich zu fahren, 
ist schon eine Zumutung. 
Irgendwann pfeift jeder auf 
Frachten, er kauft die hoch- 
modernen Schiffe für unter 


ca. 40 Millionen und verkauft 
diese wieder für ca. 70 Millio- 
nen, ohne daß das Schiff je- 
mals den Hafen verläßt. 

Im Grunde kann man die- 
ses Spiel niemandem emp- 
fehlen. ah 


eistoß gun 


mi 


on Grandslam, be- 
V kannt durch Spiele wie 

Terramex oder Fred 
Feuerstein, kommt ein neues 
Sportspiel zu uns: Euro Soc- 
cer’88, eine Fußball-Simula- 
tion. Da bislang kein übermä- 
Big großes und qualitativ 
hochwertiges Soccerspiel 
aufdem Markt ist, war ich ent- 
sprechend skeptisch. Aller- 
dings sollte ich eine Überra- 
schung erleben, denn Euro 
Soccer ’88 dürfte nur schwer 
zu schlagen sein. Sowohl 
grafisch als auch vom Sound 
her gehört dieses Spiel zum 
Besten, was für die bekann- 
ten 16-Biter zu haben ist. Gro- 
ße detaillierte Sprites und 
zahlreiche grafische Effekte 
motivieren den Spieler. 
Zu Beginn wählen Sie sich 
Ihre Mannschaft aus. Wenn 
Ihnen die Trikot-Farben nicht 
zusagen, können diese 
selbstverständlich geändert 
werden. Nachdem die wich- 
tigsten Parameter eingestellt 
worden sind, geht's los. 
Wie von den bisherigen Fuß- 
ball-Simulationen gewohnt, 
können Sie nur die Steue- 
rung für jeweils einen Spieler 
übernehmen; welchen, wählt 
der Computer aus. In den 


ist zwar vorbei, aber das 

bedeutet noch lange nicht, 

daß jetzt eine Fußball-tote Zeit folgt. 

Besitzer eines Atari ST oder Amiga kön- 

nen die EM auf ihrem Computer nachvollziehen. 


Die Fußball-EM 


meisten Fällen ist es derjeni- 
ge, der dem Ball am näch- 
sten ist. Damit Ihnen keine 
Verwechslung unterlaufen 
kann, schwebt über der 
aktuellen Spielfigur ein blin- 
kender Pfeil. Auch die Figur 
des (Computer)-Gegners ist 
mit einem Pfeil gekenn- 
zeichnet. 

Der oder die Spieler steuern 
die Fußballteams im Turnier, 
der Computer simuliert die 
Resultate der übrigen Mat- 
ches. Damit ist schon in den 
Entscheidungsspielen Span- 
nung und Nervenkitzel ga- 
rantiert. Dann geht's ins Halb- 
finale und in die Endrunden. 
Euro Soccer ’88 wird in einer 
stabilen Kunststoffverpak- 
kung auf Diskette geliefert. 


Titel: 
Getestet: 
Umsetzun 


en: Atari ST 


Bedienung 
Motivation 


Als kleine Zugaben iinden 
Sie in der Packung noch ein 
DIN-A2-Poster undeinen An- 
steck-Button. Die Anleitung | 
ist komplett in Deuisch ver- 
faßt, so daß auch Spieler, die 
der englischen Sprache 


nichtmächtig sind, keine Pro- 


bleme haben werden. 


Euro Soccer '8B8B 


Preis (DM): 


Das Spiel kann jedem, der 
sich für Fußball begeistert 
und ein hervorragend aufge- 
machtes Spiel schätzt, wärm- 
stens empfohlen werden. 
DenPreis von knapp 60 Mark 
dürfen Sie ohne Bedenken 
auf den Tischlegen. TBM 


ö DS] Juystick 


rg Tastatur 


Vor kurzer Zeit erreichte 

uns eine wahre Flut Kriegsstrategie- 
Spiele von Electronic Arts Deutschland. 
Die Spielefreaks und auch die Programmierer scheinen 


neuerdings Gefallen an dieser zweifelhaften Art von Games zu finden. 


ch mußte lange überle- 
i gen, ehe ich mnich ent- 

schloß, die Kriegsspiel- 
Serie von Electronic Arts 
nehmen. Mit Vorliebe wird 
der Zweite Weltkrieg behan- 
delt. Aber auch Kollektionen, 
mit dem jedes nennenswerte 
Gefecht durchgeführt wer- 
den kann, sind dabei. Die 
Palette reicht vom Flugzeug- 
trägerkrieg im Pazifik über 
die Schlacht Rommel gegen 
Patton bis hin zum Bom- 
bardement Englands und 
Deutschlands. 


Patton versus Rommel 


nennt sich das erste und zu- 
gleich beste Spiel dieser 
Wargames. Es simuliert das 
Gefecht in der Normandie, 
als sich der britische General 
Patton dem deutschen Feld- 
marschall Rommel gegen- 
übersah. 

Das Kriegsspektakel spielt 
sich im Computer nur auf 
einer grafisch ganz gut ge- 
lungenen Landkarte ab. Alle 
Einheiten erscheinen auf der 
Karte als gut erkennbare 
Symbole, die mit dem Joy- 
stick anzuwählen und zu 
steuernsind. Meldungen und 
Bestätigungen über even- 
tuelle Aktivitäten erscheinen 
als gut lesbare Fenster inner- 
halb der Kartengrafik. 

Über den Witz dieser Simula- 
tion läßt sich streiten. Ich 
konnte jedenfalls nur kurze 
Zeit vor dem Bildschirm aus- 
harren, ehe mir die ganze 
Sache zu dumm wurde. Aber 
vielleicht gibtes doch so aus- 
gefuchste Strategen, die die- 
ses Game als eine Heraus- 
forderung betrachten. 


Battles for 
North Africa 


Rommel - 


Game zwei beschäftigt sich 
ebenfalls mit dem Wüsten- 
fuchs Rommel. Bei diesem 


Vl 


Spiel können Sie gegen den 


Computer oder einen zwei- 
ten Kommandeur spielen, 
der entweder die Rolle der 
Alliierten oder die von Rom- 
mel übernimmt. Hier haben 


Sie jedoch auch die Möglich- 
keit, unter mehreren 
Schlachten in Nordafrika zu 
wählen. 

Auch bei diesem Game läuft 
die Handlung auf der Land- 
karte ab. Vergleiche mit dem 
oben genannten bei der Gra- 
fik unterlasse ich lieber. Die 
Darstellung der Karte ist der 
reinste Horror. . 

Durch die vielen verschiede- 
nen Farben werden Sie so 
stark verwirrt, daßSiesichauf 
derohnehinschonBlockgra- 
fik-artigen Karte kaum noch 
zurechtfinden. Überhaupt ist 
das ganze Spiel reichlich mit 
Farbe bestückt, oder besser 
gesagt: überladen. 

Dafür kommt der Sound zu 
kurz. Wenn überhaupt, dann 
tönt nur ein langweiliges Ge- 
dudelaus dem Lautsprecher, 
das dem C-64 nicht im ge- 
ringsten würdig ist. 

Gehen wir jetzt etwas in der 
Zeit zurück, nämlich ins Jahr 
1861, als in Amerika der gro- 
Be Ärger begann. 


The American Civil War 


Der Amerikanische Bürger- 
krieg unterscheidet sich im 
Aufbau, zumindest auf dem 


THE AMERICAN CIVIL WAR 


Computer, fast nicht von 
Rommels Schlacht um Nord- 
afrika. Der Bildschirmaufbau 
ist vollkommen identisch, die 
Farbgebung auch, und am 
Sound wurde ebenfalls 


nichts verbessert. Einziger 
Unterschied ist das Szenario. 
Bedient wird das Spiel über 
die Cursortasten. Eine Joy- 
stick-Steuerung, die wesent- 
lich komfortabler gewesen 
wäre, wurde nicht eingebaut. 
Auch hier flaut die Motivation 
schon nach kurzer Spiel- 
dauer ab. Hinzu kommen die 
langen Wartezeiten beim 
Laden der Disk, da oft nach- 
geladen werden muß. Insge- 
samt also ein sehr mäßiges 
Spiel. 


Halls of Montezuma 
Für 


ganz Kriegslüsterne 


kommt von denselben Pro- 
grammierern ein Simula- 
tionsspiel, 


das mehrere 


Schlachten, unter anderem 
auch in den zwei Weltkrie- 
gen, zusammenfaßt. Viel 
mehr kann ich dazu nicht 
mehr sagen, außer daß sich 
die Kämpfe vom ersten Welt- 
krieg über den zweiten und 
den Koreakrieg bis hin nach 
Vietnam ziehen. Die ehren- 
vollen Gemetzel werden na- 
türlich von der amerikani- 
schen Elitetruppe Marines 
ausgetragen. 

Da dieselben Designer am 
Werk waren, hat sich auch 
hier gegenüber denanderen 
Games nicht das geringste 
geändert. Die Grafik blieb 
gleich, der Sound auch. 


Gehen wir wieder zurück 
zum Zweiten Weltkrieg und 
sehen den Flugzeugträgern 
im Pazifischen Ozean zu. 


Carriers AT War 
1941-1945 


Es ist nicht leicht, einen richti- 
gen Eindruck von diesem 
Game zu bekommen, ohne 
die beiden ausführlichen, 
sechzehn- und vierund- 
zwanzigseitigen Handbü- 
cher komplett durchstudiert 
zu haben. 

Ort und Zeit der Handlung ist 
wieder einmal der Zweite 
Weltkrieg im Pazifischen 
Ozean. Zur Auswahl stehen 
sechs verschiedene Schau- 
plätze, unter anderem Pearl 
Harbour, Coral Sea, die Mid- 
way-Inseln und die Philippini- 
sche See. Alles Orte, die er- 
fahrenen Veteranen wohl ein 
Begriff sind. Hier haben sich 
zwei Flugzeugträger erbitter- 
te Schlachten geliefert: Die 


amerikanische „Saratoga“ 
traf auf die japanische 
„Kaga“. 

Der Bildschirmaufbau ist 


wieder einmal der gleiche 
wie bei den obengenannten 
Games. Die Steuerung eben- 
falls, der schlechte Sound 
auch. 

Trotzdem scheint Carriers at 
War umfangreicher ausge- 
fallen zu sein, da dem Spiel 
eine ganze Menge an Hand- 


büchern und Kartenmaterial, 
das nicht nur bloßer Schnick- 
Schnack-ist, beiliegen. 
Kommen wir zum letzten 
Spiel dieser Episode: der 
Bombardierung Europas. 


Europe Ablaze 


In derselben Aufmachung 
wie Carriers at War geliefert, 
enthält auch Europe Ablaze 
jede Menge an Handbü- 
chern und Karten. Diesmal 
findet die Handlung jedoch 
nicht auf hoher See statt, son- 
dern hoch in den Lüften. 
Europe Ablaze simuliert den 
Luftkrieg über England und 
Deutschland. 

Wie sollte esanders sein, das 
weitere entspricht den an- 
deren Games. Grafik und 
Soundeffekte sind 
identisch, an Komplexität er- 
reicht es mit Leichtigkeit das 
Pensum von Carriers at War. 
Gespielt werden kann in drei 
Szenarien: die Schlacht um 
England, die Nachtoffensive 
britischer Bomber und der 
Angriff auf Berlin. 

Ein Wort zu allen hier geteste- 
ten Kriegsstrategie-Spielen: 
Die Aufmachung und die Illu- 
stration könnte nicht besser 
sein. Dem Spieler werden die 
historischen Hintergründe 
und Gegebenheiten genau 
erklärt sowie die verwende- 
ten Waffen, Flugzeuge, Pan- 
zer und Schiffe detailgetreu 


völlig . 


erläutert. Die Handbücher 
lassen keine Fragen offen 
und sind sorgfältig und mit 
viel Liebe zum Detail erar- 
beitet. 

Trotzdem habe ich erhebli- 
che Bedenken gegen das 
Thema dieser Games. Sie 
befassen sich leider nur - 
ohne Ausnahme - mit Krieg. 
Natürlich, Kriege sind die 
beste Übung für strategi- 
sches Denken, trotzdem soll- 
te man es damit nicht über- 
treiben. Die Programmierer 
haben sich große Mühe ge- 
geben, die Schauplätze und 
Situationen so realitätsgetreu 
wie möglich zu gestalten. 
Technisch gesehen sind die 
Games daher kaum zu über- 
treffen, obwohl ich das von 
der grafischen Ausführung 
nicht gerade behaupten 
würde. 

Kurz gesagt: Es ist Ge- | 
schmackssache, ob die 
Spiele gefallen oder nicht. 
Mich sprechen sie nicht be- 
sonders an. Es war außeror- 
dentlich schwierig, völlig 
objektiv zu bleiben, und ich 
gebe gerne zu, daß mir das 
nicht ganz gelang. Ausge- 
fuchste Strategen sehen dar- 
in aber sicher eine große 
Herausforderung. Fraglich ist 
nur, ob sich nicht die Bun- 
desprüfstelle bald für diese 
Art von Herausforderung 
interessiert. mnE 


Roger Keating 
Eric Baker 
lan Trout 


r. Cheez Burger, 
M wohnhaft in 4233 
Denbrough 3575, 


Rue Morgue No. 666, ist am 
28. August 82 um 10 Uhr 25 
Minuten in Denbrough, Rue 
Morgue 666 tot aufgefunden 
worden. 

Der gräßlich verstümmelte 
Leichnam, die abgetrennten 
Glieder und die völlige Blut- 
leere des Körpers weisen auf 
einen möglicherweise rituel- 
len Mord hin. Ebenso die 
Striemen aufder HautdesEr- 
mordeten, deren Entstehung 
noch immer unklar bleibt, da 
sie tiefe Brandmale mit auf- 
weisen. Weitere Ergebnisse 
der Obduktion können beim 
zuständigen Gerichtsarzt 
eingesehen werden.“ 

So steht es in der Sterbeur- 
kunde Ihres so merkwürdig 
dahingeschiedenen Onkels 
Cheez Burger. Als Zeugen 
unterzeichneten unter ande- 
rem Mr. Stephen King und 
Mr. Edgar Allen Poe. 

Wenn Sie das gelesen ha- 
ben, werden Sie sich wohl 
fragen, was es daran so herz- 
lich zu lachen gibt. Richtig, 
hier noch gar nichts. Das war 
nur eine kleine stimmungs- 
machende Beilage zum 
deutschen Grafikadventure 
„OOZE - Als die Geister mür- 
be wurden.“ 


Einfallsreiche 
Hintergrundgeschichte 


Wenn Sie die mit einem her- 
vorragenden Cover bedeck- 
te Verpackung öffnen, fallen 
Ihnen zuerst die besagte 
Sterbeurkunde und ein drei- 
Bigseitiges Heft entgegen, 
das sich als Tagebuch Ihres 


Sie haben gerade Lust, sich 

mal wieder kräftig zu gruseln? Sie haben 
auch gute Nerven? Und Sie wollen nebenbei auch mal ganz 

herzhaft lachen? Dann habe ich einen guten Tip für Sie: Besuchen 

Sie doch mal Rue Morgue, Hausnummer 666. Bitte klingeln bei „Ooze“. 


verstorbenen Onkels ent- 
puppt. Der Roman ist sehr 
stimmungsvoll geschrieben 
und eignet sich hervorra- 
gend als Einführung in das 
Abenteuerspiel, zumal die 
Geschichte dort aufhört, wo 
das Spiel beginnt. 

Als Cheez Burger in die alte 
Villa einzog, bekam er zuerst 
große Schwierigkeiten mit 
den dort wohnenden Gei- 
stern aller Art. Diese waren es 


nämlich nicht gewöhnt, ein 
fremdes lebendes Wesen zu 
sehen, dassie möglicherwei- 
se in ihrer Ruhe stören könn- 
te. Also bereiteten sie dem 
alten Cheez kurzerhand eine 
Menge Terror - bis der Haus- 
geist Ludus, ehemaliger Hof- 
witzbold des Königs, heraus- 
fand, daß Mr. Burger eigent- 
lich ganz nett istund den Gei- 
stern gar nichtsanhaben will. 
Nach einigen skurrilen Strei- 


| chen fanden die beiden end- 


lich zusammen und wurden 
unzertrennliche Freunde - 
kein Wunder, wenn ein Teil 
unsterblich war. Nachdem 
Ludus seine Spukkollegen, 
T-Bone das Skelett, Vino, den 
ewig betrunkenen Weingeist 
und Holunder, dessen |lieb- 
stes Hobby ist, mit Köpfen zu 
kegeln, davon überzeugthat- 
te, daß Cheez Burger zu 
ihnen hält, hatte dieser eine 
Gruppe fester Freunde ge- 
wonnen. 

Leider jedoch hatten auch 
die Geister ein großes Pro- 
blem, in das sie Ihren Onkel 
einweihten: Haustyrann in 
Carfax Abbey ist ein Monster, 
das sich Ooze nennt undalle 
anderen Geister in Schach 
hält. Dieser Ooze, der laut 
Ludus nicht mal ein wirkli- 
cher Geist ist, weilernoch nie 
gelebt hat, ist durch und 
durch böse und hat überall 
seine Handlanger im Haus 
versteckt. Ooze hat aber 
auch eine sehr bedeutende 
Stärke: Er kann seine Gestalt 
beliebig verändern. 


Roman zum Spiel als 
Beigabe 


Der Plan, Ooze zu vernichten, 
schlug fehl. Das Ergebnis 
können Sie in der Sterbeur- 
kunde von Cheez Burger 
nachlesen. 

Hier beginnt das Grafikad- 
venture. Siemüssen als Ham 
Burger, der Erbe von Cheez, 
das Haus übernehmen und 
versuchen, Ooze mit all sei- 
nen Spionen zu vertreiben. 
Daß das gar nicht so einfach 
ist, hat auch schon Ihr Onkel 
zu spüren bekommen. 

Das wichtigste an einem 
Abenteuerspiel ist der Einga- 
beinterpreter. In diesem Fall 
setzt der deutsche Parser 
wohl neue Maßstäbe. Er ver- 
steht ein großes Stück des 
Vokabulars und auch die 
deutsche Grammatik ein- 
wandfrei. Lange Sätze, durch 
Kommas und Bindewörter 
verknüpft, stellen für ihn kein 
Problem dar. Wenn er einmal 
eine Eingabe nicht versteht, 
dann läßt das Programm Sie 
das deutlich spüren, indem 


es Sie durch einen frechen 
Kommentar darauf aufmerk- 
sam macht. 

Eine kleineSchwächehatder 
Parser jedoch: Schnelltipper 
werden sich umgewöhnen 
und einen langsameren 
Gang einlegen müssen. Tip- 
pen Sie nämlich zu schnell, 
so kommt der Interpreter 
nicht mehr mit oder läßt der 
Bequemlichkeit halber ein- 
fach ein paar Buchstaben 
aus. Nach einer kurzen Ein- 
gewöhnunggszeit stellt das je- 
doch auch kein Problem 
mehr dar. 

Der Textteil istin Deutsch ver- 
faßt und enthält nicht den 
kleinsten Rechtschreib- oder 
Grammatikfehler. Vom Um- 
fang her stellt Ooze sogar die 
Infocom-Produkte in den 
Schatten. Man kann ohne 
Übertreibung sagen, daß das 
neue Dragonware-Game ei- 
nem Illustrierten Horror- 


roman in der Ich-Perspektive 
sehr nahe kommt, so detail- 


uktnag 


reich und durchdacht sind 
die riesigen Textmassen. 

Zu einem Grafikadventure 
gehören natürlich auch Gra- 
fiken. Denen von Ooze kann 
wirklich das Prädikat „Her- 
vorragend“ verliehen wer- 
den. Zu jedem der siebzig 
Räume gibt es eine eigene 
Grafik, an der ich stunden- 
lang die Augen weiden könn- 
te. Teilweise lassen die Bilder 
sogar die von Jinxter und The 
Pawn hinter sich. 

Mit den Texten und Bildern 


0uze 
Amiga 
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soll ein Reporter Licht in die Sache bringen. 


as Rätsel, welches 
D das Bermuda-Drei- 

eck umgibt, beschäf- 
tigt schon lange die Wissen- 
schaftler und Theologen. 
Ganze Schiffskonvois und 
Flugzeugkolonnen ver- 
schwinden plötzlich spurlos 
vom Radarschirm und tau- 
chen nie mehr auf. Von Mir- 
rorsoft kommt jetzt ein Com- 
puterspiel zu uns, das sich 
mit dem Bermuda-Myste- 
rium beschäftigt. 
Sie übernehmen die Rolle 
eines hochbezahlten Repor- 


ters, der von seiner Zeitung | 
den Auftrag erhält, sich auf | 


den Bermuda-Inseln ein we- 
nig umzusehen. Doch auch 
Sie entkommen. dem be- 
rüchtigten Dreieck nicht. Ihr 
Flugzeug stürzt ab. 

Nach mehrstündiger Be- 
wußtlosigkeit finden Sie sich 
auf einer offenbar unbe- 
wohnten Insel wieder. Ihr ein- 
ziger Begleiter, der Pilot, ist 
tot. Was nun? 

Wie sie weiter vorgehen, 
bleibt Ihnen überlassen. 
Auch die Anleitung gibt keine 


Schon seit | 
über 50 Jahren häufen | 
sich die Rätsel um verschwun- | 
dene Schiffe und Flugzeuge im | 
Bereich des Bermuda-Dreiecks. Nun | 


| gelang es den Programmie- 


rern ausgezeichnet, eine 
Horrorstimmung zu erzeu- 
gen. Am besten, Sie versu- 
chen nachts, bei Kerzenlicht 
und geeigneter Musik, Ooze 
zu schlagen. Aber auch tags- 
über läßt die Spannung nicht 
lange auf sich warten. 


Fazit 


Mit „Ooze - Als die Geister 
mürbe wurden“ wurde das 


Atari ST, MS-DOS, C-64 


Preis (DM): 


Hinweise. Machen Sie sich 
also auf die Suche nach Ein- 
wohnern und spüren sie mit 
deren Hilfe die Wracks 
der verschwundenen Schiffe 
und Flugzeuge auf. Dabei 
gelten die gleichen Bedin- 


xl 


bislang beste deutsche Ad- 
venture programmiert, das 
sich hinter amerikanischen 
Produkten wie The Prawn 
nicht zu verstecken braucht. 
Durch den gelungenen Par- 
ser, die hervorragenden Tex- 
te, die sehenswerte Grafik 
und die witzige Vorgeschich- 
te wird es für deutsche Aben- 
teuerspiele neue Maßstäbe 
setzen, die zu übertreffen für 
andere Firmen schwierig 
sein wird. 

mn 


gungen wie in der Realität, 
das heißt, Sie müssen auch 
für Nahrung und Trinkwasser 


sorgen und dürfen Ihrer 


Fortsetzung auf S. 14 


verpackung auf Kassette ge- 
liefert. Zu erhalten sind die 
Games füretwazehn bis fünf- 
zehn Mark in den Fachabtei- 
lungen der Kaufhäuser und 
im Computer-Fachhandel. 


Starquake 


Eine geheime Macht hatvom 
Universum Besitz ergriffen. 
Zahlreiche Bösewichte ha- 
ben die friedliebenden Be- 
wohner verjagt und treiben 
nun ihr zerstörerisches Un- 
wesen. Ihre Aufgabe liegt auf 
der Hand: Stürzen Sie sich 
ins Getümmel und machen 
Sie den unerwünschten Ein- 
dringlingen den Garaus. 
Starquake, das bereits vor ei- 
nem guten Jahr auf den 
Markt kam, istein Arcade-Ac- 
tion-Game für einen Spieler. 
Mastertronic hat, wie in letzter 
Zeit schon oft, die Vertriebs- 
rechte erworben und bringt 
Starquake als Billigspiel un- 
ters Volk. Wer das Game 
noch nicht hat, der sollte es 
sich so schnell wie möglich 
besorgen. Gute Grafiken und 
flotte Musikuntermalung las- 


i Ile hier getesteten Bil- | 
A ligspiele werden in der 
gewohnten Kunststoff- 


sen so schnell keine Lange- 
weileaufkommen, Starquake 
gibts für CPC, Commodore 
64 und Spectrum 48K. 


Super Trolley 


Siesindein kleiner Hilfsange- 


kann Sie unglücklicherweise 
nicht ausstehen und schika- 
niertSie,wo er nur kann. Heu- 
te hatersich wiederwas ganz 
Fieses ausgedacht: Erst 
müssen Sie diverse Waren 
sortieren, dann mit einem 
Einkaufswagen die Regale 
leeren unddie Artikelanders- 
wo wieder einräumen. Das 
alles natürlich in möglichst 
kurzer Zeit und ohne dabei 
die Kunden anzurempeln. 

Bei Super Trolley, dem neue- 
sten Billigspiel von Master- 
tronic, ist die Grafikzwar nicht 
gerade berauschend, aber 
noch ausreichend. Als kleine 
Entschädigung ertönt zu 
dem ganzen Spektakel eine 


Daß gute Software nicht 
” unbedingt teuer sein muß, haben 
; diverse Hersteller wieder einmal mit 
'geballten Ladung Billigspiele bewiesen. 


All 


flotte Hintergrundmusik, die 
vom Sound-Hexer Rob Hub- 
bard programmiert wurde. 
Ob das Game auch Spaß 
macht, hängt vom persönli- 
chen Geschmack ab. Com- 
puterneulingen kann man es 
vielleicht empfehlen, da die 
Aufgaben nicht allzu an- 
spruchsvoll sind. Am besten, 
Sie sehen sich das Game vor 
dem Kauf genau an. Super 
Trolley gibt's für Commodore 
64. 


Subterranea - Rack it 
In 16 Levels müssen Sie bei 


Subterranea Ihr Joystick-Ge- 
fühl unter Beweis stellen. 


Wieder einmalsind bösartige 
Aliens in unser friedliches 
Universum eingefallen. Die 
sollen Sie vertreiben, am be- 
sten durch kräftiges Drücken 
auf den Feuerknopf. Wie bei 
Airwolf steuern sie in diesem 
Game von Hewson ein 
Raumschiff durch die unter- 
schiedlichsten Höhlensyste- 
me. Dabei begegnen Ihnen 
ständig feindliche Flugobjek- 
te, die sofort das Feuer eröff- 
nen. Es empfiehlt sich, eben- 
falls auf die Feuertaste zu 
drücken und zwar möglichst 
schnell, denn sonst sind Sie 
Ihr Raumschiff und damit 
auch eines der drei Leben 
unweigerlich los. 
Subterranea könnte durch- 
aus als Ballerspiel Erfolg 
haben, zumal auch Grafik 
und Sound nicht gerade 
schlecht sind. Leider jedoch 
existiert keine Möglichkeit, 
das Raumschiff mit dem Joy- 
stick zu steuern, so daß Sie 
sich mit einer äußerst um- 
ständlichen Tastaturbele- 
gung die Finger verrenken 
dürfen. So kommt einfach 
nicht der rechte Spielspaß 
auf. Getestet haben wir Sub- 
terranea - Rack it auf dem 
Commodore 64 mit Farbmo- 
nitor. 


Super Gran 


Von Tynesoft, vor allem be- 
kannt durch das Sportspiel 


LMU Te 


Winter Olympiad '88, kommt 
ein neues Spiel für den 
Commodore 16. 

Bei Super Gran handelt es 
sich um das offizielle Com- 
puterspielzur gleichnamigen 
englischen Fernsehserie. In 
einem amateurhaft gebastel- 
ten Helicopter müssen Sie 
einige Abenteuer bestehen. 
Grafisch schneidet Super 
Gran nichtsonderlich gutab, 
da sich Sprites und Hinter- 
grund kaum unterscheiden 
lassen. Auch das Spielprin- 
zip reißt den Spieler nicht ge- 


en 


en 


DISASTERBLASTER LAZA 


aber gefällt... 
C16 Compilation 


Eine preiswerte Spiele- 
sammlung bietet Mastertro- 
nic jetzt für alle C16/Plus4- 
Besitzer an. Auf der Kassette, 
die den eindrucksvollen Na- 
men C16 Compilation trägt, 


"BY:MASTERTRONIC 


sind vier Spiele, die in Sa- 
chen Grafik und Motivation 
eine preiswerte Alternative zu 
den meist überteuerten Spie- 
lesammlungen sind. 

Im einzelnen handelt es sich 
um Pacmaina, ein Pac-Man- 
Verschnitt, der von der Ge- 
schwindigkeithersseinesglei- 
chen sucht, Disasterblaster, 
ein gelungenes Weltraum- 
Ballerspiel, Laza, ebenfalls 
ein Ballerspiel, allerdings 
nicht ganz so motivierend, 
und schließlich das Sport- 
spiel Downhill. Hier müssen 
Sie einen Abfahrtslauf hinter 
sich bringen. Für alle vier 
Spiele wird ein Joystick 
benötigt. 


Ballblazer 


Vor etwa 18 Monaten brachte 
die Firma Lucasfilm Games 
das Geschicklichkeitsspiel 
Ballblazer heraus, für das 
nun Mastertronic die Ver- 
triebsrechte aufgekauft hat. 
Angeboten wird: Ballblazer 


für den Commodore 64/128 || 
| und den Schneider PC. Es ist 


ein Spiel, bei dem der Bild- 


schirm gesplittet ist, damit «' 
gleichzeitig | 


zwei Spieler 
gegeneinander antreten 
können. Spaß macht Ballbla- 


zer allemal, so daß dem Kauf e 
nichts im Wege steht. Beims= 
CPC empfiehltsich ein Farb-, 


monitor. 


aD 


N 


MASTERTRONIC 


-l 


& 
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Droids 


Droids ist ein neues Baller- 
spiel aus der Mastertronic- 
MAD-Serie, das durch her- 
vorragende Grafiken und 
flotten Sound angenehm 
überrascht. Ihre Aufgabe ist 
es, die beiden Roboter R2- 


D2 und C-3P0O durch ein, 


feindliches Raumschiff zu 
steuern (möchte bloß wissen, 
wie die da reingekommen 
sind!) und dabei so viele 
Aliens wie möglich zu zerstö- 
ren. Wenn Ihnen die Namen 
der Robotis bekanntvorkom- 
men: Ja, es sind die aus Star 
Wars, wie Sie am Untertitel 
erkennen können. Droids 
können Sie künftig auf dem 
Spectrum 48/128/Plus2 und 
dem Schneider CPC 464 
spielen. 


Sweevo’s World 

Den Vertrieb des vor zwei 
Jahren sehr erfolgreichen 
Spiels Sweevo’s World hat 
die Firma Mastertronic über- 


(07 SPECTRUM 128 -138+2 
LG 


= 


nommenundfürdenSchnei- 
der CPC und den Spectrum 


73 inneuer Verpackung heraus- 
. 


gebracht. Sieübernehmen in 
diesem Game die Rolle der 
tollpatschigen Ente Sweevo, 
die ihren Planeten von bösar- 
tigen Sprites säubern muß. 
Sweevo’s World ist ein typi- 
scher Vertreter der bekann- 
ten 3D-Adventures, wieessie 
seit Knight Lore dutzendwei- 
se auf dem Markt gibt. Aller- 
dings bietet das Spiel 
wesentlich bessere Grafiken 
als seine „Soft-Kollegen“, 
Wer also noch nichtallzu vie- 
le Games dieser Kategorie zu 
Hause hat, darf sich Swee- 
vo’s World: ohne Bedenken 
zulegen. Der Preis von knapp 
15 Mark ist sicher nicht zu 
hoch. 


Night Rallye 


Eine Rallye-Simulation für 
den Commodore 64/128 bie- 


= tet ebenfalls Mastertronic an. 


Allerdings darfmansich vom 
Titel nicht irreführen lassen, 
handelt es sich doch wieder 


einmal nur um ein simples 


Autorennspiel, das über- 
haupt nichts Neues bietet. 


E . Night Rallye kann nur allein 


und nur mit Joystick gespielt 


' werden. Grafisch ist Night 


Rallye ganz gut gelungen, 
auch die Soundeffekte kön- 
nen sich hören lassen. Da 
das Spiel auch nur knapp 
über 10 Mark kostet, dürfte es 


eine interessante Alternative 


zu den teuren Autorennspie- 
len sein. Thomas Bosch I 


— Spiele 
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Spielfigur keine allzu große 
Anstrengung zumuten. Um 
ans Ziel zu kommen, ist es 
außerdem ratsam, jedes Ob- 
jekt, sei es ein Stein, ein 
Baum oder eine Trinkwas- 
serquelle, peinlich genau zu 
untersuchen. 

Gesteuert wird die Spielfigur 
mit der MaUs. Über die bei- 
den Maustasten lassen sich 
auch durch Pulldown-Menüs 
die verschiedenen Aktionen 
anwählen. Ihre Spielfigur 
kann Objekte untersuchen, 
aufnehmen, ablegen, benut- 
zen, verbinden und trennen. 
Außerdem können Sie sich 
jederzeit den Status Ihres Re- 
porters betrachten. Dort fin- 
den Sie auch eine entspre- 
chende Warnung, wenn der 
Held kurz vor der Erschöp- 
fung steht. 

Daß das abzusuchende Ge- 


ziemlich lange dauern, bis 
das Spielende erreicht ist. 
Glücklicherweise haben die 
Autoren auch Optionen zum 
Abspeichern und Wiederein- 
laden des aktuellen Spiel- 
.standes eingebaut. Hierzu 
muß sich eine frisch forma- 
tierte Diskette im Laufwerk A 
befinden. 

Die Grafik von Bermuda-Pro- 
jekt beschränkt sich zwar 
lediglich aufein paar Objekte, 
ist aber völlig ausreichend. 
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Da es notwendig ist, sämtli- 
che Objekte zu untersuchen, 
würde sich das Spiel lange 
hinziehen, wenn der Bild- 
schirm damit überfüllt wäre. 
Außerdem dürfen Sie nicht 
vergessen, daß Sie sich vor- 
wiegend am Sandstrand ei- 
nereinsamen Insel aufhalten, 
wo es keine Zivilisation gibt. 
Zu Beginn des Spieles er- 
klingt aus dem Lautsprecher 
ein digitalisiertes Musikstück. 
Ansonsten sind nur diverse 


Bermuda Project 
Atari ST 
Amiga (in Vorbereitung) 


Preis (DM): 


Hintergrundgeräusche zu 
hören. 


Fazit 


Bermuda-Projekt ist ein Spiel 
für Leute mit viel Zeit und 
Geduld. Wer also einmal 
länger als eine Stunde an 
einem Computergame sit- 
zen möchte und außerdem 
eine Vorliebe für Rätsel hat, 
dem kann ich dieses Spiel 
nur empfehlen. TBB 


[_] Joystick 
_J Tastaiur 


det sich nur geringfügig von 
der des Commodore 64. Die 
Schwierigkeit und der Spiel- 
witz sind jedoch gleichge- 


erichie 


biet relativ groß ist, kann es 
nicht viele Neuerscheinungen und 


K Umsetzungen für alle Computer. So- 


wohl für den C-64 als auch für Atari ST und 
Amiga hat wohl die Sommerpause eingesetzt. 


blieben. Bergfans solltensich 
Chamonix Challenge einmal 
ansehen. Für andere ist es 
empfehlenswert, erst einmal 
probezuspielen, 

Das andere Game wurde 
vom Atari ST adaptiert: 


wel Umsetzungen 
? brachte Infogames für 

den Amiga auf den 
Markt. Beide sind schon seit 
einiger Zeit für andere Com- 
puter wie C-64 und ST erhält- 
lich und wurden von uns 
getestet. 


Chamonix Challenge 


nennt sich ein Bergsteiger- 
spiel, das zuerst für den klei- 


nen Commodore erschien. 
Ziel des Spiels ist die Bestei- 
gung eines oder mehrerer 
Berggipfel. Dazu müssen so- 
wohl Gletscher alsauch Fels- 
wände erfolgreich überwun- 
den werden. Das Game ist 
ein technisch hochwertiges 


und recht schwieriges Ge- 
schicklichkeitsspiel. 

Die Grafik istfür Amiga-Maß- 
stäbe jedoch enttäuschend 
ausgefallen. Sie unterschei- 


XIV 


Die Arche 
des Captain Blood 


Captain Blood ist ein sehr 
kompliziertes Spiel, das in 


keine Kategorie so recht ein- 
zuordnen ist. Aufgabe ist es, 
als Programmierer seine Ein- 
zelteile wieder aufzusam- 
meln, die in einem Univer- 
sum innerhalb des Compu- 
ter verstreut sind. Dazu muß 
er Kontakt mitfremden Lebe- 
wesen aufnehmen. Exoti- 
sche Planeten anzufliegen 
und gegebenenfalls auch zu 
zerstören ist hier angesagt. 
Die Grafik istidentisch mitder 
des Atari ST. Das Spiel hatra- 
sante Fraktalgrafik und herrli- 
che Farbeffekte vorzuweisen. 
Musik und Soundunterma- 
lung sind auch nicht zu ver- 
achten. Insgesamt eine ge- 
lungene Umsetzung eines 
gelungenen Spiels. 


The Tree Stooges 


Nur einen Kurztest war uns 
The Tree Stooges für den 
Amiga wert. Ziel des Spiels, 
das sich an der Fernsehserie 
orientiert, ist, für eine verarm- 


te Familie Geld aufzutreiben.“ 


Dazu lasssen sich die drei 
Clowns allerlei einfallen. 

Grafisch ist das Spiel aller- 
erste Güte, der Spielwitz 
bleibt jedoch auf der Null- 
Marke. Das, was sich die Pro- 
grammierer haben einfallen 
lassen, mag ja als Grafik- 
demo ganz gut sein, für ein 


Spiel ist jedoch nichts drin. 
Oder finden Sie daran Gefal- 
len, wenn sich einige Leute 
minutenlange Torten- 
schlachten liefern oder ein 
Watschenspiel veranstalten, 
bei dem es einzige Aufgabe 
des Spielers bleibt, den 
Feuerknopf zu drücken? 
Um ein gutes Spiel zu gestal- 
ten, hätten sich die Designer 
mehr einfallen lassen müs- 
sen als einige schwachsinni- 
ge Comicstrips mit teilweise 
recht langen Sequenzen da- 
zwischen, in denen der Spie- 
ler nichts zu tun hatals kräftig 
zu gähnen. 


Gauntlet Il für Atari ST 


Der glänzende Spielautomat 
und Nachfolger des Arcade- 
Games Gauntlet wurde jetzt 
auch für den Atari ST adap- 
tiert. Die Umsetzung ist vom 
Automaten kaum zu unter- 
scheiden. Das Game hat 
schnelle und hochauflösen- 
de Grafik und hervorragen- 
den Sound vorzuweisen. So- 
gar an die Sprachausgabe 
des Automaten wurde ge- 
dacht. Ein besonderer Gag 
ist, daßBauch am ST vier Spie- 
ler mitspielen können. Aller- 
dings ist das leider nur mit 
einem speziellen Joystick- 
Interface möglich. Trotzdem 
ist diese Version wesentlich 
besser gelungen als sein 
Vorgänger Gauntlet |. 


Atari-Umsetzung von 


ZARCH 


Das bekannte Archimedes- 
Spiel Zarch können nun 
auch ST-Besitzer genießen. 
Das schnelle Aktiongame, 
bei dem außerirdische We- 
sen aller Art abgewehrt wer- 
den müssen, nennt sich auf 
dem ST Virus. Die Grafik 
bleibtim wesentlichen gleich, 
nur die Geschwindigkeit hat 
gelitten, was aber nichts hei- 
ßen will. Das Game ist noch 
schnell genug, um einen flie- 
ßenden Spielverlauf zu 
garantieren. Atari-Besitzer 
sollten sich Virus unbedingt 
ansehen. 


Aktion-Game für 
Atari ST 


She-Fox nennt sich ein 
neues Aktion-Spiel, das unter 
anderem auch für denST er- 
scheint. Das Game ist ein 
simples Scroll-Spiel, beidem 
ausnahmsweise einmal eine 
Heldin die Hauptrolle spielt. 
Die Amazone muß sich am 
laufenden Band mit ihrer 
Peitsche gegen wilde Tiere 
und ein Zeitlimit behaupten. 
Grafisch ist das Spiel ganz 
gut gelungen, vom Spielwitz 
blieb allerdings nichts mehr 
übrig. Bereits nach einigen 
Spielminuten wird die ständi- 
ge Raserei in eine vorgege- 
bene Richtung langweilig. 
Insgesamt also ein sehr mit- 
telmäßiges Spiel. 


Pink Panther für den 
Commodore 64 


Das in der letzten Ausgabe 
getestete Amiga-Spiel The 
Pink Panther wurde für den 
C-64 adaptiert. Kaum zu 
glauben: Die Grafik ist zwar 
nicht so detailreich, dafür 
aber schneller als auf dem 
Amiga. Auch der Sound ist 
für C-64-Maßstäbe hervorra- 
gend. Der Spielwitz hat nicht 
im geringsten gelitten. Aus 
dem kleinen Commodore 
haben die Programmierer 
herausgeholt, was er hergibt. 
Eine Umsetzung, wiesie nicht 
besser seinkönne. mnEH 
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Arctic Fox 
Arkanoid 
Backlash 

BadCat 

BMX Simulator 
California Games 
Chessmaster 2000 
Clever & Smart, 
Defender of Crown 
Dungeon Master 
Eagles Nest 
Emerald Mine 
Fam. Feuerstein 
Flight-Simulator 2 
Frightnigth 
Ferrari Formula 1 


54,50/54,50 
64,50/42,50 
45,50/44,50 
49,50/54,50 
42,50/44,50 
64,50/64,50 
72,50/74,50 
54,50/56,50 
66,50/64,50 
64,50/64,50 
54,50/56,50 
26,50/26,50 
54,50/54,50 
99,50/98,50 
64,50/64,50 
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26,50/26,50 
64,50/64,50 
42,5/—,— | Sub Battle Sim. 
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Jump Jet 


King of Chicago 
Las Vegas 


Lurkins Horror 
Moebius * 
Phantasie 3 
Ports of Call 
Planetfall 

Rings of Zilfin 
Roadwar 2000 
Roadwar Europa 


loadwars 
Rolling Thunder 
Sindbad 
Slaygon 
Soccer King 


Giana Sisters 
Gridstart 
Hotball 
Itidon 
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Spiele Amiga/ST | Spiele Amiga/ST | Spiele Amiga/ST 


Karling Grand Prix 


g 
Leaderboard Golf 


Strip Poker 2 Plus 


Versandkosten: Vorkasse + DM 4,50 / Nachnahme + DM 
7,50. Zur Auslieferung gelangt ausschließlich nur Original- 
ware. Angebote freibleibend. Liefermöglichkeiten vorbe- 
halten. Bei großer Nachfrage nicht jeder Artikel sofort 
lieferbar. 


42.50/42,50 | Superstar icehoc 

Terramex 

Test Drive 

Teiris 

Time & Magic 

Two & Two Basketb. 

Willythe Kid 

Winterolympiade 88 
izball 


64,50/64,50 
54 


Xenon 


54,50/54,50 | Anwenderprogramme 
68,50/68,50 | C-64 Emulator 
54,50/54,50 | Cambridge Lisp 
64,50/54,50 | LatticeC 

68,50/58,50 | Lisp 

54,50/54,50 | Macro Assembler 
26,50/26,50 | MCC Pascal 
42,50/44,50 
64,50/64,50 


Amiga/ST 
156, 


—,—358,50 
528,50.—,— 
478,50 —,— 
178,5 —,— 
—,— 248,50 
248,50.—,— 


Pascal 
Pro Sprite Designer —,— 99,50 


o le 


Hallo, liebe Spielefreaks 


und Joystickartisten. Willkommen 

bei den Players Pages der LOAD&RUN. Wer Tips, 

Tricks, Pokes und Lösungen zu jedem x-beliebigen Spiel 

und für jedes x-beliebige System hat oder sucht, ist hier richtig! 


getan bei uns. Entsprechend um- 

fangreich fallen die Players Pages 
aus. Doch ich will mich nicht mit langen 
Vorreden aufhalten, sondern gleich los- 
legen. 


i etzten Monat hat sich wieder viel 


Ranarama 

Für Ranarama-Spieler aufdem 064/128 
haben wir folgenden Poke bereit, der 
nach dem üblichen load-reset-poke- 
sys-Rezept eingebaut wird. 


POKE 37104,96 
POKE 33969,234 
POKE 33970,234 


Game Over Part Il 
Für Part I| von Game Over finden viele 
kein passendes Codewort. Wie wär's 
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iR Castle..." 
'ender of:the 

ij Diablo .; a 

Feud 


BEBLYEBN 
Basaagess 


+4 29. 
129.: 


& 


SELRZHBERH 
BESBESEEEE 


ne super y 
auflomie Games 

Ei (DIE Hektik) 
Eh Arcade) 
rlernaional Karate 
agd aut Roter Oktober 


Alle Preise Sind unsere Ladenpreise. Bei Versand berechnen wir anteilige Selbsikosten; 
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| SOFORT-BESTELLUNG 


PER TELEFON: 
09111/288286 


Softwa! 
ATARIST Sof“ 


Marbie Madness dt 

Mercenary nor 
tono-Emuli 

Monyile Manor 


denn mal mit ZAPPA? Übrigens werden 
für dieses Spiel noch jede MengeStrate- 
gie-Hinweise gesucht. Für alle Game- 
Over-Spieler auf dem Spectrum habe 
ich auch noch einen Code anzubieten: 
18024. 


Terramex 

Haben Sie schon mal versucht, mit dem 
Ballon in die Lüftezu steigen? Sicherlich, 
denn mit dem Schirm geht es ja ein- 
wandfrei. Aber wer kann uns verraten, 
wie der Ballon wiederzum Landenüber- 
redet werden kann? Die LOAD& RUN- 
Redaktion hat es auch nach mehreren 
durchwachten Nächten noch nicht ge- 
schafft. Übrigens: Wenn Sie es nicht 
schaffen, warum gehen sie dannnichtin 
den Untergrund. Wenn Sie in den Brun- 
nen klettern, kommen noch jede Menge 


c-64 Software 


‚Altemative Worldgames 


Bärd's Tale | 
Ei Cauldron 


Broker dt. ... 

Bo Bobbie-. 8 
'hampionship Wrestii 

Befor-Emulator 5 eu 2% 


p Space 2 3 
Defender ofthe Crown 8% 
Flight Simulator I) 129.90 
Glana Sisters. . +:...59,90 
Hollywood Strip Poker 39.90 
Impact * 39.90 
In 80 Tagen um die Weit 59.90 loc 
Kaiser dt. Imposanie Missen)) 
Karate ci 49.90 nünTaa ungen 
King’s Questi,il.lil .. . 99.90 a ESTSEH 
Leisure Sult Lär 59.90 Ve om DEUTEch 
Little Computer People 59 ee Te 
Lucky Luke dit. 59.90 LagasyatineAreients 
able Madness SUPER!! 


Fightsimutator 
Fred Feuerstein 


Pirates! x 
Shoot ’emup Constr. Kit 


re 
je's Ernpire 
we 
Space Questil 
Sean je Simulator 


Super Cycle Winter Edition 


m. Lund 
T=-BESTEL 

wi bestelle 
‚ | = ne Programme per 


weitere Räume, in denen unzählige Ge- 
fahren lauern wie beispielsweise eine 
Schlange, die aber durch Flötenmusik 
beruhigt werden kann. 


Die Erbschaft 

Viele Leser haben sich über die Tips 
zum dritten Teil der Erbschaft in 
LOAD &RUN 4/88 gefreut. Andere da- 
gegen konnten damit nichts anfangen, 
weil sie nicht mal den ersten Teil been- 
den konnten. Um ihrem Leiden nun ein 
Ende zu bereiten, hier eine Liste mit den 
Gegenständen, welche die einzelnen 
Personen erhalten: 


NEGER ee Trompete 
Mann mit Glatze....... Taschenlampe 
MafloOSO 0 een ee are Pistole 
SE Kerzenhalter 
Mann mit Scheiten............ Kaktus 
Punkeninznsasersaassatest: Bügeleisen 
Mann mit Glatze & Bart.......... Kette 


BeiderGelegenheitnocheinkleinerTip: 
Es empfiehlt sich, stets zu Fuß zu gehen 
und den Aufzug zu meiden. Im Zimmer 
gleich links nach Ihrem eigenen Wohn- 
raum finden Sie in derSchublade ein zu- 
sätzliches Taschengeld. 


Vents 


‚Miper E; 
Text DEUTSCH 


LUNG + 


mputer 
ich für den Comp! 1 Nachnahme (+ Kost 


TI Vorkasseund Scheck (+ Kosten 2,50) 


z ; 1 
bei Vorkasse mit Scheck: DM 2,50, bei Versand per Nachnahme DM 5,90 je Sendung. - Software fr meinen Computer 
a 


1.9.Datensysteme 


DENISSTRASSE 45 - 8500 NÜRNBERG 80 - TELEFON 0911/2882861] 


6 er 
Dich möchte.ein kostenloses Gesamtinfo üb 


Bitte Ansc! ıcht vergesse! 3 38 
Unterst 

\ 3.4 ti hrift 

D Datensysteme Denisstraße 45 8500 Nürnberg 8 


VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116, Plus 4? Oder einen 128? Können Sie 
programmieren? In Basic oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög- 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam- 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware — eventuelle Erweiterungen — 
benutzte Peripherie — hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


Name des Einsenders: 
Straße/Hausnr./Tel.: 
Plz/Ort: 


Sollten Sie keinen Drucker haben, genügt der Daten- 
träger. 

Sie erhalten Ihre Kassette/Diskette selbstverständ- 
lich zurück, wenn Sie einen ausreichend frankierten 
Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzen Sie bitte anhängendes Formu- 
lar! (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete”’ Programme ziemlich schnell er- 
kennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto- 
kopieren. 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programme) an: 


Benötigte Geräte: 


Beigefügt ( ) Listings ( ) Kassette ( ) Diskette 


Ich versichere, der alleinige Urheber des Programmes zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es 
in den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung, das Copy- 


right geht insoweit auf den Verlag über. 


Rechtsverbindliche Unterschrift 


COMMODORE WELT 
PROGRAMM-REDAKTION 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 
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E SERIE ernennen 


® Linke Seiten- 
fläche = 

® Rechte Seiten- 
flächen 

® Obere Seiten- 
flächen 

@ Untere Seiten- 
flächen = 


Nun steht der Program- 
mierung nichts mehr 

im Wege. Tippen Sie 

das nachfolgende Listing 
analog zur Programmbe- 
schreibung unter Einbe- 
ziehung der Variablen- 
liste ab. 


IIJOL 


PROGRAMM- 
BESCHREIBUNG 


In Zeile 100 bewirkt das 


GOSUB 9000 die Dimen- 
sionierung und Wertzu- 
weisung für Variablen, die 
sich innerhalb des Pro- 
grammablaufs nicht mehr 
ändern (Ausnahme: HS). 
GOSUB 9100 schafft 
Ausgangswerte für eine 
neue Spielrunde. 

GOSUB 8000 in Zeile 130 
sorgt für die Spielfeld- 
darstellung: 

In Zeile 8000 werden drei 
Schleifen gebildet. Hier- 
durch können die sechs- 
mal vier Einzelfelder 

mit fünf verschiedenen 
Farben belegt werden. 
Die Farbwahl erfolgt 


durch Zufallin Zeile 8010. 


Die Zeilen 8020 und 8030 
bilden durch die Variable 
B eine zusätzliche Schlei- 
fe, mit der es möglich ist, 
in Zeile 8020 festzustel- 
len, ob der ermittelte 
Wert aus Zeile 8010 inner- 
halb des Einzelfeldes 
schon vorhanden ist. Ist 
dies der Fall, muß er neu 
gebildet werden: IF X 

= S%(B,H,V) THEN 

8010. 

Dieses Problem erklärt 
den langsamen Aufbau 
des Spielfeldes. 

Wenn alle fünf Flächen 
eines Einzelfeldes fünf 
verschiedene Werte ha- 
ben, wird im Unterpro- 
gramm 8200 (Zeile‘ 8040) 
jeder Wert in eine augen- 
freundliche Farbe umge- 
setzt. Nun kann durch 
GOSUB 4000 das errech- 
nete Einzelfeld darge- 
stellt werden. 

Die Zeilen 8060 und 8070 


plazieren auf den unteren 
Bildschirmteil eine Kurz- 
anleitung. 

Die Zeile 8080 beschrif- 
tet die Punkte- und High- 
score-Anzeigen; GOSUB 
5100 und 5200 ergänzen 
dies mit den entsprechen- 


* den Werten. 


Die Zeile 8100 sorgt in 
Verbindung mit Zeile 
8110 für die farbliche 
Unterlegung der Farb- 
tabelle. 

In Zeile 200 wird festge- 
stellt, wieviel Oberflä- 
chen von jeder Farbe vor- 
handen sind. Da die Farb- 
tabelle mit den gleichen 
Variablen arbeitet, aus 
denen auch das Spielfeld 
besteht, muß der Wert 
der Oberfläche links 
oben mit der Variablen 
SR gespeichert werden, 
bevor innerhalb der Zeile 
220 der Ausdruck der 
Farbwerte erfolgt (GO- 
SUB 5000). 

Danach wird S%(5,H,V) 
wieder auf den ursprüng- 
lichen Wert gebracht: 
S%(5,H,V)=SR. 

Die nachfolgende Joy- 
stickabfrage (siehe auch 
Handbuch Seite 185) er- 
folgt innerhalb der Zei- 
len 300 bis 330. Zweck- 
mäßigerweise erfolgt die 
Zugwahl unter der Be- 
dingung, die Ränder des 
Spielfeldes nicht zu 
rar zum Bei- 


iel: 
IE JOX(1)= 1 (also nach 
oben) AND V 1 in Zeile 
300. Falls dies nicht zu- 
trifft, bewirkt GOSUB 
2100 die Löschung des 
Cursors an alter Position. 
Danach erfolgt eine Ver- 
zweigung in richtungszu- 
gehörige Unterprogram- 
me (1000, 1100, 1200 
und 1300). 


SUBROUTINEN 


Anhand des Unterpro- 
gramms 1000 soll die 
Farbverschiebung nach 
oben als Beispiel beschrie- 
ben werden: 

Sowohl die grafische ver- 
tikale Spielfeldposition 
(VG) als auch der rech- 
nerische Wert (V) wird 
um eine Position nach 
oben hin reduziert. Die 


drei Farben, die verscho- 
ben werden sollen, wer- 
den durch die Variablen 
S1,S2 und S3 gespei- 
chert. 

GOSUB 1400 verringert 
den Farbwert der bishe- 
rigen Oberfläche auf der 
Tabelle um eins. 

Mit Hilfe der Speicher- 
variablen werden die 
Farbwerte in Zeile 1010 
neu verteilt, so daß eine 
Verschiebung stattfindet. 
GOSUB 4000 stellt da- 
nach das neu errechnete 
Einzelfeld dar. 

GOSUB 1500 aktuali- 
siert die Farbtabelle und 
erhöht die Punktzahl. 


Nach der Rückkehr wird 
am Ende der Joystick- 
abfrage in Zeile 350 der 
Cursor durch GOSUB 
2000 an die neue Posi- 
tion gesetzt. Falls der 
Zählwert der aktuellen 
Oberflächenfarbe auf 24 
steht, ist die Aufgabe er- 
füllt und das Programm 
verzweigt zur End-Routi- 


ne (Zeile 9500 bis 9550), 


andernfalls zum Anfang 
der Joystickabfrage 
(GOTO 300). 
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TONHÖHENTABELLE 


In unserem Beispielpro- 
gramm wird viel mit di- 
mensionierten Variablen 
gearbeitet. Gerade am 
Anfang ist es schwer, ein- 
zusehen, warum man Va- 
riablen überhaupt dimen- 
sionieren soll. Leider gibt 
das Handbuch auf den 
Seiten 147 und 148 nur 
wenig Auskunft auf die- 
se Frage. Hier die wich- 
tigsten Gründe: 


1. Dimensionieren ist 
praktisch. 

Stellen Sie sich vor, Sie 
möchten 20 Variablen 
mit Werten belegen. Das 
sähe etwa so aus: 


Notenzeile 
Hilfslinien—— PL ] a ZU 2 
Bezeichnung: a | h cis dis 

b | c d | 
Wert | 577 .| 664 
543 596 6 


Al=2: A2=4: A3=T: 
A4=9 und so weiter. 
Durch eine dimensionier- 
te Variable läßt sich das 
Problem viel eleganter 
lösen: 

DIM A(20): FORB = 

1 TO 20 : READ(A): 
NEXT DATA 2, 4, 7,9 
und so weiter. 


2. Dimensionieren eröff- 
net neue Möglichkeiten. 
Bei dem Beispiel DIM A 
(20) reservierten Sie sich 


134 


einen Speicherplatz für 
20 Variablen gleichen 
Namens. Dies geschah 

in eindimensionaler 
Form, womit Sie prak- 
tisch eine Variablenreihe 
geschaffen haben (siehe 
PAINTER Zeile 220 und 
230). Sie können aber 
auch ein Variablenfeld 
schaffen: DIM A(20,20). 
Sie haben sich dadurch 
20 mal 20, also 400 Va- 
riablen zweidimensional 
reserviert. Natürlich kön- 
nen Sie auch drei-, vier- 
oder fünffach dimensio- 
nieren — bei PAINTER 
waren es sechs mal vier 
Einzelfelder mit fünf Far- 


ben, also S%(5,6,4) —, 
wenn der Speicherplatz 
dies mitmacht. 


Diese Verfahrensweise er- 
laubt es unter anderem, 
mit Hilfe anderer Varia- 
blen innerhalb Ihres di- 
mensionierten Feldes an 
jede beliebige Position 
zu gelangen und dadurch 
komplizierte Spielabläu- 
fe oder Sortierungen zu 
gestalten. Bei PAINTER 
waren es die Variablen 


H und V innerhalb des 
Zahlenfeldes S%. 


3. Dimensionieren spart 
Speicherplatz. 
Abgesehen von der Pro- 
grammverkürzung, die 
aus dem vorhergehenden 
Argument resultiert, ist 
es speicherplatzsparend, 
wenn Ihr Computer nur 
eine Variable mit Reser- 
vation einrichten muß 
anstatt eine entsprechen- 
de Variablen-Anzahl mit 
verschiedenen Namen. 
Sie sehen also, daß man 
in vielen Fällen auf die 
Dimensionierung kaum 
verzichten kann. Bei ge- 


ringer Anzahl von Varia- 
blen kann es übersicht- 
licher und praktischer 
sein, die Dimensionierung 
zu lassen, siehe PAINTER 
Zeile 1000 und 1010. 
Natürlich sind auch Strings 
dimensionierbar und las- 
sen sich dadurch ähnlich 
wie Variablen handhaben, 
etwa bei Sortiervorgän- 


gen. 

Falls es sich bei dimen- 
sionierten Variablen in je- 
dem Fall um ganze Zah- 


len handelt, sollten Sie 
dies durch % markieren; 
daher S%(5,H,V) statt 
S(5,H,V). Sie sparen da- 
durch weiteren Speicher- 
platz und erhöhen die 
Rechengeschwindigkeit. 
Beachten Sie, daß Sie in- 
nerhalb eines Programm- 
ablaufs eine Variable nur 
einmal dimensionieren 
können, andernfalls er- 
folgt die Fehlermeldung 
REDIM ’D ARRAY 
ERROR. Um alle Varia- 
blen eines Feldes wieder 
auf null zu bringen, ist 
demnach eine entspre- 
chende Schleife nötig 
(siehe PAINTER Zeile 


9110). Dieser Punkt ent- 
fällt beim Programmstart 
durch RUN oder nach ei- 
nem CLEAR-Befehl. 
Wenn Sie das Beispiel- 
programm ausprobieren, 
werden Sie zur Lösung 
der Aufgabe immer we- 
niger Züge brauchen. 
Auf diese Weise werden 
immer mehr strategische 
Überlegungen zum Tra- 
gen kommen. Nach eini- 
ger Zeit beherrschen Sie 
diverse Routinezüge, wo- 
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durch das Spiel kaum 
noch eine Anforderung 
darstellt. Es liegt in Ihrer 
Hand, diese Anforderung 
durch Änderungen der 
Spielaufgabe wesentlich 
zu erhöhen. 

Es wird viel schwieriger, 
wenn Sie das Programm 
so ändern, daß Züge in 
unmittelbarer Gegenrich- 
tung, etwa links-rechts, 
nicht erlaubt sind. Hierzu 
könnten Sie der Jostick- 
abfrage durch AND eine 
weitere Bedingung außer 
der Spielfeldgebunden- 
heit anfügen. Auch ande- 
re Änderungen der Spiel- 
regeln wären denkbar; 

es steht noch genug Spei- 
cherplatz zur Verfügung, 
zum Beispiel ab Zeile 
3000 


Auch Titel und Melodien 
fehlen noch und warten 
auf Ihre Programmier- 
künste. 

Die programmtechnischen 
Voraussetzungen für die 
Sound-Programmierung 
sollten Ihnen bekannt sein 
und lassen sich notfalls im 
Handbuch schnell nach- 
lesen (Seite 109 bis 116). 
Wie Sie wissen, verlangt 
der SOUND-Befehl die 
Festlegung von Tonkanal 
(1 bis 3), Tonhöhe (0 bis 
1015) und Tondauer (1 
bis ?). 

Von den drei Tonkanälen 
ist nur der erste und zwei- 
te Kanal für Melodien in- 
nerhalb der BASIC-Pro- 
grammierung brauchbar. 
Glücklicherweise erlau- 
ben es die Hardware-Vor- 
aussetzungen des C16, 
daß während der Tondau- 
er andere Programmschrit- 
te abgearbeitet werden 
können. Insofern ist es 
möglich, auf Kanal zwei 
die Begleitstimme zu Ka- 
nal eins erklingen zu las- 
sen und damit zwei Töne 
zur gleichen Zeit zu er- 


* zeugen. 


Die Tonhöhe wird im 
Notensystem durch die 
vertikale Position einer 
Note innerhalb der No- 
tenzeile (fünf Linien) fest- 
gelegt. Je tiefer sich die 
Note innerhalb der Zei- 

le befindet, um so tiefer 
klingt sie auch (und um- 
gekehrt). Wenn’s ganz 


E SER DZ an nn. 


PAINTER-STRATEGIESPIEL 


te ron pain 


11 rem (p) commodore welt team 

12 rem »===-- einen 
13 rem (c) by peter bergen 

14 rem hildesheim 

15 rem 

16 rem beispielprogramm 2 zur 

17 rem serie "so programmiere ich 
18 rem in basic” 

19 rem 

28 rem basic v3,5 

21 rem c16/116/p4 

22 rem ==============22SS 22002222 
95 gosub 69828 

1088 gosub9BB8 

1128 gosub9198 

128 vol6:color@,1:color4,1:scenclr 
138 gosub8HBd8 

199 rem wertzuweisungen 

288 forv=1to4:forh=1t06:f%(s%(5,h, 
v))=f%ls%(5,h,v))+ti:next:next 

218 h=1:v=1:hg=1:vg=1:sr=s%(5,h,v) 
228 restore228:fora=1to5:readb:s%( 
5,h,v)=b:gosub5@@8@:next:s%[5,h,v)= 
sr 

238 data2,3,6,7,18 

299 rem joystickabfrage 

388 ifjoy( 1)=1andv>iIthengosub21BB: 
gosub 198: gato35® 

318 ifjoy( 1) =3andh<6thengosub21AB: 
gosub 1188: got 0358 

328 ifjoy( 1) =5andv<4thengosub2188: 
gosub 1299: goto358 

338 ifjoyl 1)=7andh>ithengosub212B: 
gosub 1388:g0ot0358 

359 gosub2908:iff%ls%(5,h,v))=24th 
en9589@:elsegoto3d0d 

999 rem verschiebung nach oben 
1200 vg=vg-5:v=v-1:51=s%l1,h,v):s2 
=s%[5,h,v) :s3=s%[3,h,v) :gosub 1488 
1918 s%(1,h,v)=s2:s%5,h,v)=s3:s%l( 
3,h,v)=s1:gosub4888:gosub 1588: retu 
rn 

1899 rem verschiebung nach rechts 
1198 hg=shg+5:h=h+1:s1=s%(4,h,v):s2 
=s% 5,h,v) :s3=s%[ 2,h,v) :gosub 1488 
1118 s%lA,h,v)=s3:5%(5,h,v)=s1:sAl 
2,h,v)=s2:gosub48808:gosub15B#%:retu 
rn 

1199 rem verschiebung nach unten 
1208 ve=vg+5:v=v+1:s1i=s%l1,h,v):s2 
=5% 5,h,v) :s3=s%(3,h,v) :gosub 1488 
1218 s%l1,h,v)=s3:5%(5,h,v)=s1:s%l 
3,h,v)=s2:gosub4Aß9: gosub 1588: retu 
rn 

1299 rem verschiebung nach links 


<i0> 
<mj? 
<pn> 
<fc> 
<la> 
<kn> 
<lp> 
<ap> 
<km> 
<1f> 
<in> 
<1j> 
<ih> 
<kd> 
<go> 
<kn> 
<jm> 
<dk> 
<mj? 


<ne> 


<fc> 


<pp> 
<pe> 
<ac> 
<dk> 
<oo> 
<da> 


<ja> 


<hb> 
<cj? 


<mg> 
<df> 
<chb> 
<ha> 
<ja> 
<jm> 
<cc> 


<pa> 
<fl> 


1308 hg=hg-5:h=h-1:51=s%l4,h,v):s? 
=s%A5,h,v) :s3=s%[2,h,v) :gosub 1498 
1318 s%(A,h,v)=s2:5%(5,h,v)=s3:s% 
2,h,v)=s1:gosub4988: gosub 1509: retu 
rn 

1399 rem farbtabellen-abzug 

1488 F%Ls%L5,h,v))=F%ls%(05,h,W))-1 
:gosub5B88: return 

1499 rem aktualisierung 

1508 FALS%lS,h,v))=F%ls%(5,h,v)) +1 
:gosub5ßBB:p=p+1:gosub51ßd:return 
1999 rem kursor setzen 

20808 color1,2:chari,hg+2,vg+2,q2$+ 
"*" return 

2899 rem kursor loeschen 

2188 color1,s%(5,h,v) ,4:chari,hg+2 
‚vgt2,g1$+" ":return 

3999 rem felddarstellung 

4888 color1,s%(1,h,v) ‚3:chari,hg+1 
‚vg,qg1$+z2$+22$+z22$ 

4818 Fora=vg+itovg+3 

A828 color1,5%4,h,v),3:chari,hg,a 
‚z24$:color1,s%(5,h,v) ,4:char1,hg+1 
‚a," j ” 

4038 color1,s%(2,h,v) ,‚3:chari,hg+4 
‚a,26$ 

4040 next:color1,s%(3,h,v) ,‚3:char1 
‚hg+i,vg+4,23$+z3$+z3$: return 

4999 rem farbkontrolle 

5888 color1,s%[5,h,v),4:char1,34,f 
P%Ls%C5,h,v)) ,‚gi$:printusing”##";F 
%s%5,h,v)) 

5818 return 

5899 rem punktanzeige 

5188 color1,8,6:char1,32,3,q1$:pri 
ntusing #HHHRH" ;p:soundl, 199, ?:ret 
urn 

5199 rem highscoreanzeige 

5288 color1,8,6:char1,32,6,q1$:pri 
ntusing  ###4#44" ;hs:return 

7999 rem spielfelddarstellung 

8888 Forv=1to4:forh=1t06:fora=1to5 
BBIB x=int(rnd{ 1)#5)+1:b=1 

an28 ifx=s%(b,h,v)thenBB1d 

8038 b=b+1:ifb=6thenBB4d:else829 
8840 s%la,h,v)=x:next:gosubä?ßß:ga 
sub4898:hg=hg+5:next:hg=1:vg=vg+5: 
next 

8868 colori,2:char1,1,22,q2$+"sie 
haben gewonnen, wenn alle quadrate 


8478 char1,1,23,"gleichfarbig sind 
I steuerung mit joy( 1)" 

80888 colar1,8,4:char1,32,2,q1$+"”pu 
nkte":char1,32,5,q1$+" high " 

8898 gosub518@:gasub5288 

8188 restore81liß:fora=1toS:readb:c 
olor1,b,4:char1,33,fp%(b) ,‚q1$+" 


<gc> 
<bl> 
<be> 


<el> 
<ef> 


<bb> 
<lg> 


<bj> 
<gi> 


<jd> 
<ol> 


<nj? 
<oe> 
<ic> 
<id> 
<mf> 


<gf> 


sec> 
<nj> 
<gh> 


<ci> 
<mk> 


<cl> 
<cp? 
<fo> 
<in?> 
<hc> 
<ea> 


<ka> 


<ha> 
<dp> 


<hd> 
<ik> 


ee Bas 


"ınext:return “ag? 
8118 data2,3,6,7,18 <co> 
8199 farbwertzuweisung '<dg> 
8288 forb=1to5 <ck> 
8210 ifs%lb,h,v)=ithens%(b,h,v)=2: 
g0t08268 <mk> 
8228 ifsX(b,h,v)=2thens%(b,h,v)=3: 
goto8268 <1k> 
823Q ifs%lb,h,vw)=3thens%(b,h,v)=6: 
goto8268 <pi> 
8248 ifs%(b,h,v)=Athens%(b,h,v)=7: 
g0ot08268 <no> 
8258 ifs%lb,h,v)=5thens%b,h,v)=1@ <jn> 
8268 next:return <cl> 
8999 rem dimensionierung und wertz 
uweisungen <nd> 
9888 a=rnd( 1) -ti:dims%(5,6,4) :dimf 
%( 10) :dimfp%( 18) :hs=1808 <ac> 
g9aiAa Fp%l2)=18:fp%l3)=12:Fp%[6) =14 
:fp%l7)=16:Fp%l 10) =18 <ge> 
9828 gi$=chr$t{ 18) :q2$=chr$( 146) :re 
turn <gk> 
9499 rem ausgangswerte <pi> 
giaB Fora=itoid:f%la)=B:next <ji> 
9118 forv=1t04:forh=1t06:fora=1to5 
:s%la,h,v)=B:next:next:next <fb> 
9129 p=B:hg=i:vg=i:return <mn> 
9499 rem ende <bn> 
9508 colori,2:char1,1,22,g2$+"” 
sie haben es geschafft! 

7 <pf> 
9518 char1,1,23,"noch ein spiel? ( 
li=ja / re=nein) <dh> 
9528 ifp<hsthenhs=p:gosub5298 <og> 
9538 ifjoyl 1)=7thensenclr:gotolid <Iif> 
9548 ifjoy( 1) =3thensenclr:end <fa> 
9558 goto9534 <cd> 
6B08Q rem nachspann ============== <pj> 
68810 rem ** zeichensatz/graphik * <ib> 
68828 z2$=chr$( 163) :z3$=chr$( 164) <oo> 
6an3B zA$=chr$l 165) :26$=chr$( 167) <ig> 
69848 return <hc> 
60050 rem ========-================ Cei> 
6AR5B rem 12277 bytes memory <pe> 
60070 rem 83544 bytes program <jd> 
60088 rem BU112 bytes variables <mo> 
60098 rem 89489 bytes arrays bir 
6B1AQ rem A333 bytes strings <oh> 
60110 rem 87799 bytes free (®) <1b> 
6B128 rem =====-= ===... nn <id> 


extrem wird, stehen 
nach oben und nach un- 
ten noch Hilfslinien zur 
Verfügung. Aus kommu- 
nikativen Gründen tragen 
die Noten Buchstaben, 
damit sich erklären läßt, 


welche Tonhöhe gemeint 
ist. 

Für weitere Differenzie- 
rungen stehen Vorzei- 
chen zur Verfügung, die, 
vor die betreffende Note 
gesetzt, diese um einen 


Halbton vermindern oder 
erhöhen. Ein kleines ‚,b‘“ 
bedeutet eine Verminde- 
rung, ein Kreuz (#) eine 
Erhöhung. Mit dem Vor- 
zeichen ändert sich auch 
die Bezeichnung der No- 
te. Das erhöhte „,‚f““ heißt 
„fis“, das verminderte 
„h“ heißt „b“. Die Ab- 
bildung zeigt Ihnen die 
gebräuchlichsten Tonhö- 
hen zusammen mit ihren 
Bezeichnungen und den 
dazugehörigen Werten für 
den SOUND-Befehl. Ste- 
hen Vorzeichen schon 
am Anfang der Notenzei- 
len, so gelten sie für alle 
betreffenden Noten. 

Bei einem Kreuz am Zei- 
lenanfang an der Position 
der Note ‚‚f“ wird so aus 
jedem ‚,‚f“ ein „fis“. Soll 
im Einzelfall eine durch 
Vorzeichen am Zeilenan- 
fang erhöhte oder vermin- 
derte Note dennoch nor- 
mal gespielt werden, so 
wird durch das Zeichen 
die Erhöhung oder Ver- 
minderung für die folgen- 
de Note aufgehoben. 

Die Tondauer wird da- 
durch bestimmt, welches 
Notenzeichen verwendet 
wurde. Die Abbildung | 
zeigt die Noten- und Pau- 
senzeichen mit ihren Be- 
zeichnungen und welche 
Werte der SOUND-Be- 
fehl für das jeweilige Zei- 
chen benötigt. 
Grundsätzlich ist es egal, 
ob die sogenannten No- 
tenhälse nach oben oder 
nach unten zeigen; ent- 
scheidend ist, in welcher 
Höhe sich der „Kopf“ 
befindet. 

Auch bei der Tondauer 
gibt es eine Besonderheit: 
Befindet sich. hinter der 
Note ein Punkt, so wird 
sie um die Hälfte ihrer 
Dauer verlängert. 

Balken, Bögen, Noten- 
schlüssel, Taktangaben 
(Zahlen am Anfang einer 
Notenzeile) und andere 
Zeichen dürfen Sie für 
unseren Zweck getrost 
vernachlässigen. 


Zum Programm- 
technischen: 

Hier bietet sich die DA- 
TA-Methode an. Bleibt 
nur noch die Frage, wie 
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man die Pausen program- 

miert. Aus dem Hand- 

buch geht hervor, daß 

Tonhöhen innerhalb der 

Werte-O bis 1015 liegen 

sollen. Geben Sie VOL 6: 

SOUND 1, 1022, 50 ein. 

Auch das wird ohne Feh- 

lermeldung geschluckt. 

Nur hört man nichts, in- 

sofern die ideale Pause. 

Es hindert also nichts 

mehr daran, die ersten 

Versuche zu wagen. Pro- 

bieren Sie, die Notenzeile 

der Abbildung 3 in ein 
kleines Musikprogramm 
zu verwandeln. Sollten 
zwei Noten gleicher Hö- 
he aufeinanderfolgen, ge- 

nügt ein SOUND 1, 1022, 

1, um sie getrennt erklin- 

gen zu lassen. 

Wenn das ‚schöne Früh- 

jahr‘ auch bei Ihnen er- 

klungen ist, sollte Ihr 

Programm etwa so aus- 

sehen: 

10 VOL 6: FORA=1 
TO 19: READB;C: 
SOUND 1,B,C: NEXT 

20 DATA 643,8,739,15, 
643,15,739,15,798, 
15,770,15,1022,1,770, 
15,739,15 

30 DATA 1022,8,643,8, 
739,15,643,15,739,15, 
798,15,834,15,1022, 
1,834,15,798,15 


Falls Sie die langsame 
Gangart bevorzugt haben, 
sind Sie zu anderen Ton- 
längen gekommen. 

Das Ganze klingt wesent- 
lich voller, wenn Sie hin- 
ter SOUND 1,B,C noch 
ein SOUND 2,B-1,C 
setzen. 


Auch die Programmierung 
der zweiten Stimme ist 
keine schwere Übung. 

Die betreffenden Noten 
stehen innerhalb der No- 
tenzeile unter der ersten 
Stimme, meist mit den 


- Hälsen nach unten. Sie 


müssen nur noch dafür 
sorgen, daß innerhalb ei- 
ner Schleife nicht zwei, 
sondern vier DATAs 
(für SOUND 2) eingele- 
sen werden. 
Mehr brauchen Sie nicht, 
um Ihre Programmsamm- 
lung melodiös zu berei- 
chern. 

Peter Bergen U 


ee 0 


Die Schildkröte in deutsch 


Der Igel ist ein kyberneti- 
sches Tier, das auf dem 
Bildschirm lebt und Befeh- 
le ausführt, die ihn zum 
Laufen (vorwärts oder 
rückwärts) oder zum Dre- 
hen um die eigene Achse 
(rechts oder links) veran- 
lassen. Bei der Bewegung 
zeichnet der Igel seine 
Spur auf den Bildschirm. 
Er kann also dazu 
benutzt werden, Zeich- 
nungen darauf zu erzeu- 
gen. 

Igelprogramme werden 
gebildet durch Zusam- 
menfassen von Grundbe- 
fehlen zu sogenannten 
Prozeduren; diese Pro- 
gramme können wieder 
in anderen Prozeduren 
verwendet werden, so daß 
schrittweise bis zu einem 
beliebigen Grad an Kom- 
plexität aufgebaut werden 
kann. Jeder einzelne 
Schritt kann aus einem 
Grundbefehl oder aus ei- 
ner vom Benutzer ent- 
wickelten Prozedur be- 
stehen. 

Alle Prozeduren, ob als 
Grundbefehl vorhanden 
oder vom Benutzer defi- 
niert, können ausgeführt. 
werden, indem ihre Na- 
men einfach mit der Ta- 
statur eingegeben wer- 
den. Der im Programm 
integrierte Editor macht 
es leicht, Prozeduren zu 
definieren, zu verändern 
und ausfzuführen. 


PROGRAMMSTART 


Etwas Geduld ist nach 
dem Programmstart erfor- 
derlich, bis die Datazei- 
len der Maschinenrouti- 
ne eingelesen sind. Alle 
für das Hauptprogramm 
später nicht mehr benö- 
tigten BASIC-Zeilen wer- 
den durch eine Maschi- 
nenroutine gelöscht. 

Das schafft Platz im 
Speicher. 


HARDWARE 


@ Computer Plus/4 oder 
C16/116 mit 64 K- 
Byte. 

® Floppy. 


Ein ganz besonderer Leckerbissen ist das 
Programm Igel-Grafik, eine Programmiersprache zur 
Erstellung von Grafiken. 


dra 


per zufall 
var. laenge+ 
var.winkel*+ 
wh 100 

zz-l 100 


vw 
rw 


z2-w 3560 


ende 1 


wiederhole 100 
vi 
winkel= 


® Drucker Epson-kompa- 
tibel für den Ausdruck 
von Grafiken; für den 
Ausdruck von Prozedu- 
ren reicht auch ein an- 
derer Drucker. Durch 
Benützung einer geeig- 
neten Hardcopy-Routi- 
ne können die Grafiken 
aber auch mit jedem 
sonstigen Drucker zu 
Papier gebracht werden. 
Auch wer nur eine Data- 
sette besitzt, kann mit 
der Igel-Grafik experi- 
mentieren. Allerdings sind 
die Möglichkeiten sehr 
beschränkt, wenn auf das 
Laden und Speichern von 
Prozeduren und Bildern 
verzichtet werden muß. 


BEFEHLSLISTE IM 
DIREKTMODUS 


Funktionstasten 

F1 voller Grafikbild- 
schirm; 

F2 neun Zeilen Text; 

F3 fünf Zeilen Text; 

F5 Neustart Igelprogramm; 

F8 voller Textbildschirm. 

Die Funktionstasten Fl, 

F2, F3 und F8 sind inter- 

ruptprogrammiert. Daher 

ist ihre Bedienung jeder- 

zeit im laufenden Pro- 

gramm möglich. 


Grundbefehle 

ade 

Alle in das Programm auf- 
genommenen Prozeduren 
werden gelöscht. Hierzu 
muß das Programm 
DELETE auf der Disket- 
te vorhanden sein. 


basic 
Prozeduren werden im 
BASIC-Editor gezeigt. Zu 
sehen ist nicht die einge- 
gebene Form, sondern wie 
diese in BASIC übersetzt 
Wurde, Editieren ist mög- 
ch. 


zeige.titel (zt 

Alle Namen der aufge- 
nommenen Prozeduren 
werden gelistet. 


versteckigel (vi) 
Der als Dreieck auf dem 


EBENE ||?5 & TRICKSE 


Bildschirm sichtbare Igel 
wird unsichtbar. 
Programme können da- 
durch schneller abgearbei- 
tet werden. 
zeigigel 
Der unsichtbar gemachte 
ge wird wieder sicht- 

ar. 


Bee 1 

er danach eingegebene 
Text wird auf den Gra- 
fikbildschirm ausgege- 
ben. Folgt dem Befehl 
igeltext der Parameter 1, 
so wird der auszugeben- 
de Text revers darge- 
stellt. 


wiederhole (wh) <Anzahl> inhalt (ih) 
Durch diesen Befehl, dem Das Disketten-Directory 
eine Zahl nachfolgen muß, wird aufgelistet. 


wird die Anzahl der Wie- 
derholungen bestimmt. 


fuelle 

Eine geschlossene Fläche, 
innerhalb derer sich der 
Igel befindet, wird mit 
der Zeichenfarbe gefüllt. 


A. Befehlsliste 


warte <zahl> 
stifthoch (sh) 
stiftab (sa) 
zeigigel (Zi) 
versteckigel (vi) 


Programmverzögerung 


wie Direktmodus 
wie Direktmodus 


zufallszahl-1 (zz-l) <Bereich> zufällige Igelschrittlänge erzeugen 
zufallszahl—w (zz-w)<Bereich>zufälligen Igeldrehwinkel erzeugen 


aufkurs (ak) 

igeltext 

fuelle 

Is 

vorwaerts (vw) <Länge> 
rueckwaerts (rw) <Länge> 
links (li) <Winkel> 

rechts (re) <Winke> 
stop.wenn.winkel> (sww>) 
stop.wenn.winkel< (sww<) 
stop.wenn.winkel= (sww=) 
stop.wenn.laenge> (swl>) 
stop.wenn.laenge< (swK) 
stop.wenn.laenge= (swl>) 
var.laenge+ 

var.laengex 

var.winkelt 

var.winkel* 

winkelt+ 

winkel* 

laenge+ 

laenge* 

wiederhole <Anzahl> 


ende.wiederhole 
mitte 
loeschebild 
pause 


laenge= <Zah> 
winkel= <Winkel> 
aufx <Koordinate> 
aufy <Koordinate> 
radiere 

farbe <Nummer> 
luminanz <Zah> 
rahmen <Zah> 


ende <Zahl> 


wie Direktmodus 

wie Direktmodus 

wie Direktmodus 

Textschirm löschen, Prozedureneingabe 
wie Direktmodus 

wie Direktmodus 

wie Direktmodus 

wie Direktmodus 

Abbruchbedingung 

Abbruchbedingung 

Abbruchbedingung 

Abbruchbedingung 

Abbruchbedingung 

Abbruchbedingung 

Länge Igelschritt variabel wählen 

Länge Igelschritt variabel wählen 
Drehwinkel Igel variabel wählen 
Drehwinkel Igel variabel wählen 
Winkelzuwachs wählen 

Winkelzuwachs wählen 

Längenzuwachs wählen 

Längenzuwachs wählen 

Anzahl der Wiederholungen bestimmen. 
Ist keine Anzahl angegeben, so wird diese 
vor dem Prozeduraufruf bestimmt. 
Schleifenabschluß 

Igel geht zur Mitte und hinterläßt eine Spur 
wie Direktmodus 


Programmunterbrechung. Fortsetzung auf 
Tastendruck . 


Schrittlänge setzen 

Drehwinkel setzen 

Igel auf X-Position setzen 

Igel auf Y-Position setzen 

Igel löscht Spur, die er überfährt 
Spurfarbe wählen 

wie Direktmodus 

wie Direktmodus 
Prozedurennummer wählen 
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vorwaertssh (vwsh) 
<Länge> 
Vorwärts ohne Spur. 


rueckwaertssh (rwsh) 
<Länge> - 
Rückwärts ohne Spur. 


Is 
Textbildschirm wird ge- 
löscht. 


rueckwaerts (rw) <Länge> 
(selbsterklärend) a 


vorwaerts (vw) <Länge> 
(selbsterklärend) 


rechts (re) <Winkel> 
(selbsterklärend) 


links (li) <Winkel> 
(selbsterklärend) 


invert (i 
Grafikbildschirm wird 
invertiert. 


xko 
Ausgabe der X-Koordi- 
nate der Igelposition. 


yko 
Ausgabe der Y-Koordina- 
te der Igelposition. 


schiebbild 
<Schirmnummer> 
Verschieben eines Bildes 
nach Schirm zwei oder 
drei (insgesamt drei Gra- 
fikbildschirme). 


holbild 
<Schirmnummer> 
Holen eines Bildes von 
Schirm zwei oder drei 
(Weiterbearbeitung mög- 
lich). 


zeigbild 
<Schirmnummer> 
Bild zeigen auf Schirm 


„eins, zwei oder drei. 


winkel= <Größe> 
Winkelgröße setzen. 


winkel+ <Zuwachs> 
Zuwachs für den Winkel 
setzen. 


laenge+t <Zuwachs> 
Zuwachs für die Länge 
setzen. 


BTEST BEER EEE EN ZEe 


radiere 
Pixel löschen. 


luminanz (lu) <Größe> 
Farbhelligkeit setzen. 


farbe <Code> 
Zeichenfarbe wählen. 


rahmen <Code> 
Rahmenfarbe wählen. 


aufxy 

X- ie Y-Koordinaten für 
Igelposition setzen. Der 
Rechner fragt anschlie- 
ßend nach den Koordina- 
tenwerten. Es ändert sich 
nur die Position, nicht 
aber der Kurs des Igels. 


kurs 
Ausgabe des Igelkurses 
(Winkel O bis 360). 


aufkurs (ak) <Winkel> 
Igelkurs setzen. 


vergiss (vg) 
<Prozedurnummer> 
Prozedur aus dem Ar- 
beitsspeicher löschen. 


loeschefile <Name> 
File auf Diskette löschen. 


druckebild (d 

Grafik druc ” von 
Schirm eins. Nur mit 
Epson-kompatiblem 
Drucker möglich. 


druckerein nl 
Protokoll ein, Mit jedem 
Drucker möglich. 


druckeraus (dra) 
Protokoll aus. 


ladebild [1] <Name> 
Grafik von Diskette laden. 
Folgt dem Befehl der Pa- 
rameter 1, so werden nur 
33 Blocks für die reine 
Bildinformation geladen. 
Wird der Parameter 1 weg- 
gelassen, so werden 41 
Blocks geladen, die auch 
die Farbinformation ent- 
halten. 


bewahrebild [1] <Name> 
Grafik auf Diskette spei- 
chern. (33 Blocks bei Pa- 
rameter 1, sonst 41 
Blocks.) 


lade <name> 
Prozeduren laden (Paket). 


Die Prozeduren müssen 
bereits in BASIC über- 
setzt vorliegen. 


bewahre <name> 
Prozeduren auf Diskette 
sichern. Alle im Arbeits- 
speicher vorliegenden Pro- 
zeduren werden als Pro- 
zedurenpaket gespeichert 
und können zu einem 
späteren Zeitpunkt mit 
dem Lade-Befehl wieder 
eingeladen werden. 


loeschebild (Ib) 
Grafikbildschirm löschen. 
Die Igelposition bleibt 
erhalten. 


mitte 
Igel in Bildschirmmitte 
setzen (ohne Spur). 


bild 
Grafikbildschirm löschen 
(Igel in Bildschirmmitte). 


edit 
Übergang in den Proze- 
duren-Editor. 


ende 
Programmabbruch. 


1. Im Direktmodus edit 
eingeben 


2. Prozedurnamen 
wählen <RETURN> 
<ESC>-Taste bei Redi- 
gierwunsch bereits erstell- 
ter und auf Diskette ge- 
speicherter Prozeduren, 
sonst <RETURN>. 
Prozeduren werden als se- 
quentielle Files gespei- 
chert und müssen in den 
Prozedurenspeicher, wie 
weiter unten beschrieben, 
eingelesen werden. Im Un- 
terschied dazu werden 
Prozedurenpakete, die aus 
einer Vielzahl fertig ein- 
gespeicherter Prozeduren 
bestehen, durch den Be- 
fehl „lade“ aus dem Di- 
rektmodus heraus gela- 
den und mit ‚„‚bewahre“ 
gesichert. 


3. Befehle eingeben 

@ Ein Befehl pro Zeile. 

@ Befehl und Parameter- 
zahl immer durch ein 
Leerzeichen trennen, 
sonst erfolgt Fehler- 
meldung. 

@ Maximal neun Zeilen 


sind möglich, sonst er- 
folgt Fehlermeldung. 

® Beliebiges Umherwan- 
dern und Verändern 
der Eingabe am Bild- 
schirm ist möglich. 

® Einfügen von Prozedu- 
renzeilen mit <ESC> 
+ <i>, löschen von Pro- 
grammzeilen mit 
<ESC>+<d> 


4. ende <Prozeduren- 
nummer> eingeben (zum 
Beispiel ende 24) 

@ Verschiedene Prozedu- 
ren müssen verschiede- 
ne Nummern haben, 
im Zweifelsfall durch 
zt im Direktmodus 
Nummern feststellen. 
Bei Nummerngleichheit 
wird das alte Programm 
überschrieben. 

® Mit <RETURN> 
Menü aufrufen. 


5. Menü 

<CONTROL>+ 

<r> — Redigieren — 
unbedingt nötig, falls 
Prozedur nicht mit 


<CONTROL> + <b> 


abgespeichert wird. 

<b> — Sichern — 
Prozedur wird als se- 
quentielles File auf 
Diskette gesichert. 
Der Prozedurname 
wird übernommen, 
ein File des gleichen 
Namens überschrie- 
ben. 

<c> — Einlesen — 
Prozedur wird in 
BASIC übersetzt und 
in den Prozeduren- 
speicher übernom- 
men. Sie kann da- 


nach im Direktmodus 


zusammen mit weite- 
ren Prozeduren als 
Prozedurenpaket ab- 
gespeichert werden. 

<d> — Drucken — 
Prozedur wird auf 
den Drucker ausge- 

geben. 

<p> — Plotten — 
Prozedur wird auf 
den Plotter VC 1520 
ausgegeben. 

<g> — Abbruch — 
Ausstieg aus dem 
Editor und Rückkehr 
in den Direktmodus. 

Nach <CONTROL> 

+<c> und der Lernmel- 

dung des Rechners kann 
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die neue Prozedur mit ih- 
rem Namen (und mit ei- 
ner Längenangabe, falls 
die Länge variabel ge- 
wählt wurde) aufgerufen 
werden. Mit der STOP- 
Taste kann jederzeit un- 
terbrochen werden. 


6. Drei Möglichkeiten, 

den Editor zu verlassen: 

a) vor Eingabe des Proze- 
durnamens: zweimal 
<RETURNJ> betät- 
tigen; 

b) während des Schrei- 
bens der Prozedur: 
ls eingeben und zwei- 
mal <RETURN> 
drücken; 

c) während des Schrei- 
bens der Prozedur: 
„ende“ eingeben und 
<CONTROL> +<c> 
betätigen. 


TIPS ZU IGEL 


1. Sollten Sie nach dem 
Befehl ‚lade‘ einmal ein 
Prozedurenpaket einlesen 
wollen, das sich nicht auf 
der eingelegten Diskette 
befindet, so werden Sie 
aus dem Programm hin- 
auskatapultiert. Legen 
Sie dann die Diskette ein, 
auf der das File ‚‚delete‘“ 
gespeichert ist und betä- 
tigen Sie die Funktions- 
taste F5. 

2. Hindern Sie den Igel 
daran, eine Prozedur zu 
Ende zu bringen (mit der 
<STOP>-Taste jederzeit 
möglich), so ist manch- 
mal ein zweimaliges Be- 
fehlen von „bild“ nötig, 
um den Igel in die Aus- 
gangsposition zu bringen. 
3. Es ist nicht möglich, 
alle Fähigkeiten von 

Igel zu demonstrieren. 
Eigenes Experimentieren 
ist erwünscht und wird 
den Anwender bald per- 
fekt machen. Außerdem 
muß man sich intensiv 
mit jedem Befehl be- 
schäftigen. 

4. Beim Sichern von Pro- 
zedurenpaketen emp- 
fiehlt sich die Kennung 
„.pkt‘“, damit keine Ver- 
wechslungen stattfinden. 
5. Wählen Sie das Pro- 
grammpaket „demo.pkt“ 


oO 


IGEL-GRAFTK 


18 rem igel=====================p4 
28 rem (p) commodore welt team 

38 rem =========2====2=2====2====2=2==== 
48 rem (c) by k.-d. mueller 

58 rem 

68 rem basic v3.5 

78 rem plus4 (c16/116 + 64 kb) 

88 rem disk + drucker (epson-komp. 
98 rem ==================22222==== 
188 graphic1,1:poke55,®8:pokeS6, 168 
:clr:graphicd:gosub2298 

118 gosub61838:3ys4795 

128 poke4796, 112:poke4888,23:poke 
4807,252:poke4811,83:sys4293:sys46 
39:run1528 

121 run1528 

138 ed=1:iffa=®thengosub 1398: retur 
n 

148 dowhileb>32848:b=b-3284@: loop: 
return 

158 x=rdot(B) :y=rdot( 1) :sys58559:b 
0x1,8,8,319,199:locate x,y: return 
168 open 1,8, 15:inputffl,f,f$:iff<> 
@thenprint :printf$:forf=1t018AB:ne. 
xt:close1:run2858 

178 closei:return 

188 printchr$( 147) 

198 gosub2298:i=3:printrn$he$c4$"P 
rozedurname"rf$; :inputc$ 

288 poke 285, 1:print:poke292,28:pr 
intrn$fl$"<esc> zum Laden!!! "rf$f 
0$; 

218 getkeyv$:ifv$=chr$(27)thensys4 
477,""+c$,3872,8,8:gosub16@:printh 
e$c4$c4$c4$:goto238 

228 poke285,1:print:poke282,28:pri 
ntb$b5$b4$he$c4$c4$c4$"pr "+c$:ifc 
$=""thenrun 1528 

238 dimle$( 28) :dimw1$( 28) :dimw$( 28 
):n=2:sn$="draw m to" 

248 tu$=":g05130":k0o$=":g05140" 
258 va$="=c:":vc$="c=":gosub32 
268 va$="=z:":vc$=":z=":gosub328 
278 va$="=iw:":vc$=":iw=":gosub32Q 
288 va$="=z1:":vc$=":z1=":gosub328 
298 va$="=r:":vc$=":r=":gosub328 
388 va$="=zw":vc$=":zw=":gosub32B 
31@ forla=1t06:bh$=bh$+bh$l 1a) :br$ 
=br$+br$( la) :next:goto36® 

328 la=1la+1:s3=int(rnd(B) *25) +65: 5 
A=int(rnd(®) *9) 

338 bw$( 1a) =chr$( s3) +str$( s4) 

348 bh$( la) =bw$( la) +va$:br$( la)=ve 
$+bw$( la) 

358 return 

368 w$li)=str$(i)+bh$:i=i+1:n=n+1 
378 trap2878:do:gosub 1448: gosub599 
12) 


<bp> 
<ho> 


ng> 


<ig> 
<pd> 
<od> 
<cd> 
<mn> 
<jg> 


<he> 
<kf> 


<bn> 
<lc> 
<en> 
<eo> 
<ol> 
<je> 
<hc> 
<on> 


<mh> 


<kc> 


<hh> 


<ab> 


<el> 
<od> 
<ce> 
<mj?> 
<fh> 
<gd> 
<op> 
<ae> 


<hf> 


<bi> 
<nc> 


<ag> 
<em> 


<gb> 


<dh> 


388 ifa$=-"warte”"thenw1$(li)="for v= 
1 to"+str$(a) +tu$+":next”:goto840 
398 ifa$="stifthoch"or a$="sh"then 
w1$(i)="rem**pu**":sn$="locate"”:e$ 
=a$:goto848 n 

408 ifa$="stiftab"ora$="sa"”thenw1$ 
(i)="rem**pd**":sn$="draw m to":e$ 
=3$:g0t0848 

418 ifa$="zi"ora$="zeigigel"thenwi 
$lLi)="fa=d:ed=9":goto84 

428 ifa$="zufallszahl-1l"ora$="zz-1 
"thenw1$( i)="c=eint( rnd( 1) #*"+str$(a 
)+")+1":goto848 

438 ifa$="zufallszahl-w"ora$="zz-w 
"then w1$(i)="iwsint(rnd( 1) #"+str$ 
(a)+")+1":goto 848 

448 ifa$="aufkurs”ora$="ak"thenw1$ 
(i)="b="+str$(a) :goto848:elseifa$= 
"G"thenrun 1528 : 

458 ifa$="vi”ora$="versteckigel"”th 
enwi$(i)="fa=1":goto848 

468 ifa$f="igeltext"thengosub 1368: 
goto84B i 

478 ifa$="fuelle”thenwi$(i)="locat 
e4;5:paint,rdot(®B) ‚rdot( 1)":goto84 
8 

488 ifa$="invert"ora$="i"thenwi$li 
)="m=-(m=B) :sys 4388":goto 848 

498 ifa$="1ls"thenrun188 

598 ifa$="vorwaerts"ora$="vw"thenw 
1$li)=sn$+str$(la) +f$+";b"+tuf:goto 
848 

518 ifa$="rueckwaerts”"ora$="rw"the 
nwi1$li)=sn$+"-( "+str$la)+f$+") ;b"+ 
tu$:goto848 

528 ifa$="stop.wenn.winkel="ora$=" 
sww="thenw1$(i)=":do until iw="+st 
r$( a) :goto848 

538 ifa$="stop.wenn.winkel>"ora$=" 
sww>"thenw1$(i)=":do until iw>"+st 
r$(a) :goto848 

548 ifa$="stop.wenn.winkel<"ora$=" 
sww<"thenwi$(i)=":do until iw<"+st 
r$(a) :goto848 

558 ifa$="winkel="thenw1$[( i)="iw=" 
+str$(a):goto 848 

568 ifa$="var.winkel+"thenwi$(i)=" 
:":iw$="+iw":goto848 

578 ifa$="var.winkel*"thenwi$(li)=" 
:":iw$="*iw”:goto849 

588 ifa$="rechts"ora$="re"thenwi$( 
i)="w="+str$(a) +iw$+":b=b+w"+ko$t+t 
u$:goto848 

598 ifa$="links"ora$="li"thenwi$li 
)="w=368-( "+str$(a) +iw$+") :b=ab+w"+ 
ko$+tu$:goto848 

6AB ifa$="winkel+"thenwi$li)="iw-i 
w+"+str$(a) +"+zw":goto848 


<ee> 


<nk> 


<hm> 


<km> 


<jk> 


<no> 


<nm> 
<nk> 


<ah> 


<ho> 


<cm>? 


<jj> 


<dc> 


<oj? 


<mj?> 


<aa> 


<bn> 
<oi> 
<fa> 


<mb> 


<le> 


<ik> 


<af> 


« 
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618 ifaß=-"winkel*"thenwi$li)="iwei 

w#Hl "+str$(a) +"+zw)":goto848 

628 ifa$="wiederhole"ora$="wh”"then 

wi1$(li)="s1i=r:s52=z:z=0:r="+str$la)+ 
"+yr:do":goto848 

638 ifa$="stop.wenn.laenge="ora$=" 
swl="thenwi$(i)=":do-until c="+str 

$l a} :gotoB48 

648 ifa$="stop.wenn.laenge>"ora$=" 
swl>"thenw1$(i)=":do until c>"+str 
$(a) :goto848 

658 ifa$="stop.wenn.laenge<"ora$=" 
swl<"thenw1$(i)=":do until c<"+str 

$(a) :goto848 

668 if a$="ende.wiederhole"ora$="e 

ndwh”then 1878 

679 ifa$=c$thenw1$li)="loop"”:goto8 

48 

688 ifa$="laenget"thenwi$li)="c=c+ 
"+str$(a) +"+z1":goto840 

698 ifa$="laenge*”"thenwi$l i)="c=c* 

("+str$(a)+"+z1)":goto848 

788 ifa$="var.laenge+"thenw1$l[i)=" 
:":f$="+c":g0t0848 

718 ifa$="var.laenge*”"thenwi1$(i)=" 
:":f$="*c":goto84Bd 

728 if a$="mitte”thenw1$li)=sn$+"1 

68, 180:b=9:w=0" :gotoB4B 

738 ifa$="loeschebild"ora$="1b"the 

nw1$(i)="goS158" :goto848 

748 ifa$="pause”thenwi$(i)="getkey 
x$":goto840 

758 ifa$="laenge="thenwi$li)="c="+ 
str$(a) :g0t0848 

768 ifa$="aufx”"thenwi$( i)=sn$+" 168 

+"+str$(a)+",rdot( 1) "+tu$:goto848 

770 ifa$="aufy”then wi$li)=sn$+" r 

dot( 8) ‚, 188-"+str$(a) +tu$:goto848 

780 ifa$="radiere”thenwi$[i)="m=B" 
:gaoto848 

798 ifa$="farbe"thenwi$[(i)="m=1:co 
lori,"+str$(a)+",1lu”:goto848 

888 ifa$="rahmen"thenw1$(li)="colo"” 

+23$+"4,"+str$(la)+",lu”:goto848 
818 ifa$="luminanz"ora$="1lu”thenw1 

$li)="lu="+str$(a) :goto848 

828 ifa$="ende”theni=i+1:n=n+t1:got 

o 1238 

830 gosub1?2NB:goto85B 

849 w$li)=str$li)+wi$(li) :isi+ti:nen 
+1 

858 loop © 

868 printcl$:sys4948 

878 ifa<=Bora>5Bthen285B 

888 k=a:a=100B0d+[lk-1) *20:d=a-4B0B: 

e=a-3008 

898 iffl=Bthengoto938 

908 printc4$c4$"delete”d:printc4$c 


<ok> 


<om> 


90 


4$"delete"e:printc4$c4$"delete"”d+1 
40808 

918 printc4$c4$"delete"a"”-"a+r19:pr 
intc4$c4$"rU1528":printhe$ 

928 poke 239,5:fori=8to4:poke1319+ 
i,13:next:end 

938 fori=3ton-1:printstr$( a+i-3) +m 
id$(w$li),-(i>9) +3, len(w$li))):nex 
t 


948 printstr$(a-3+n) +tbr$+":reT:rem 
#"40$H"r" 

958 printstr$le) +"ifa$="+chr$( 34) + 
c$+chr$( 34) +"thEc=a:goS"+str$(a) +" 
:w$(li)=str$li)+"”; 

968 printchr$( 34) +"gosub"+str$(a)*+ 
chr$( 34) +" :i=i+1:goto2120" 

978 printstr$(d) "ifa$="chr$( 34) c$e 
hr$( 34) "thEwi1$(i)="chr$( 34) ":g0S"s 
tr$( 5) chr$( 34) ; 

988 print":g0848" 

998 print" 1858 df$="chr$( 34) c$chr$ 
(34) 

10808 printstr$( d+14888)":"kK"."b2$c 
$:print"goto1948" 

1818 if peek( 2895) <23then 1830 

1820 sys4949:printel$left$(qr$,5)1 
eft$(qd$,7)rn$"zu viele Zeilen!!!" 
:getkeyze$:goto295®B 

1038 poke1319,19:poke1328, 17:fori= 
1ton+3:poke132®+i, 13:next:poke239, 
n+5:end 

1840 gosub2298:printel$:sys4949 
10858 df$="chaos" 

1868 printleft$(qr$,4)left$(qd$,4) 
rn$df$rf$b3$"gelernt":fori=1t060®: 
next:run 1528 

1878 wi$li)=+"z=z+1:100uNz>=r:r=s1 
:z=52":goto84B 

10888 printrn$"x"rf$; :inputx3:print 
rn$”y"rf$; :inputy3 

1898 printrn$"sa (B) oder sh (1)"r 
f$; :inputpu 

1188 ifx3=1111thenx3=rdot(B) :elsex 
3=160+x3 

1118 ify3=1111theny3=rdot( 1) :elsey 
3=188-y3 

1128 ifputhenlocatex3, y3:elsedrawm 
tox3,y3 

1138 goto 2128 

1140 : 

1158 p%=bl 

1168 ifa=ßthenscratch""+c$:sys4462 
‚""+c$,3872,b1#40+3072,a 

1178 ifa=8thenfory=@tobl:poke1319+ 
y,13:next:poke239,bl:run 198 

1188 if a=4thenpoke 4999,7:p%=p%-3 
:5ys4958, 12,4,15,p%:a=s1:goto 1288 
1198 if a=6thenopen 6,6,6:print#6, 


<de> 
<co> 


<ce> 


<mf> 


<ng?> 


<ln> 
<ng> 
<ke> 
<no> 
<ed> 
<mn? 


<nf> 


<hb> 
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1:p%=p%-3:poke 4999,9:5ys4958, 12,6 
‚15,p%:3=s1:g0t01249 


1200 iffa=ßthengshapes$(b2) ‚x1-5,y 


1-5,4 

1210 printc2$rn$"unbekannte Prozed 
ur"rf$; :forf=1t018M@:next:printchr 
$(27)+"p"; 

1228 printchr$(27)+"3"::return 
1230 si=a:bl=peek( 285) :printchr$( 2 
ZEN": 

1248 forzz=1t037:printzv$; :next:pr 
intzv$ 

1250 print "Ihre Wahl: <ctrl>+.... 
u ae a a img ":print 

1268 printrn$"<c>: ’Lernen’<g>: 'Sto 
ppen’<b>: ’Sichern ’"rf$:print 

1278 printrn$”<r>: "Redig. ’<d>: ’Dru 
cker’<p>: ’Plotter’"rf$ 

1288 getkeyct$:pi=asc( ct$) 

1298 ifp1=3thengoto868 

1308 ifp1=7thenruni528 

1318 ifp1=2thena=8:g0t01148 

1328 ifp1=4thena=4:g0:01148 

1330 ifp1=16thena=6:g0t01148 

1348 ifp1=18thenfory=Ptoabl:poke131 
9+y,13:next:poke?239,bl1:run198 

1358 goto 1288 

1368 inputz$:w1$(i)="char,rdot(®)/ 
B+1,rdot( 1) /8,"+chr$( 34) +z$+chr$( 3 
4)+","+str$(a) 

1378 return 

1380 graphichk ‚@:sys5376: return 
1398 x1=rdot(®) :y1=rdot( 1) 

1488 ifb>=36ßthenb=b-368:g0t01498 
1418 b2=int(b/18) :gshapes$( b2) ‚x1- 
5, 41-5;,4 

1428 ifed=1thened=®:gshapes$( b2) ‚x 
1-5,y1-5,4:locatex1,y1 

1438 return 

1448 poke 19,1:inputa$:poke19,8 
1450 le=1:me$=a$ 

1460 if le>2@ thena$=me$:a=@:gotol 
498:elsele$( le) =mid$(a$,1e,1) 

1470 ifle$(le)<>" "then le=le+1:go 
t01460 

1488 a1$=right$(a$, len( a$)-le) :a=v 
allal$) :a$=left$la$,(le-1)) 

1498 print:if dz=dthenreturn 

1509 ifa=ßdthenprint#3,a$:return 
1518 ifa<>Athenprint#3,a$;a:return 
1528 graphic2,1 

1538 box8,8,0,319,199:dims$( 36) :sy 
s4949: fornr=Ato36Astep1@:circle1l,5 
‚5,4,5,,,nr,128 

1540 gosub2299:sshapes$( nr/10) ,8,® 
‚18, 18:5ys4922:next :n=3:5=3:b=®:m=> 
1 

1558 dimw$( 38) :dimle$( 28) :trap2178 


1568 box 1,8,0,319,199:x1=16@:y1=1 
BB: locatexi,yl:gshapes$(b2) ,x1-5,y 
1-5,4:5ys 4949 

1578 da:gosub 1448: iffa=Athengshape 
s$(b2) ‚x1-5,y1-5,4:locate x1,y1 
1588 printbk$; :gosub6994 

1598 ifa$="ade"thensys4795: sys4668 
:clr:pn$="delete":goto2228 

1608 if a$="basic"thengraphich:got 
02088:elseifa$="ende"thengraphicß: 
end 

1618 if a$="zeige.titel"ora$="zt"t 
henpoke 22,35:list 19998-:poke?2,2 
5:g0t02128 

1628 ifa$="versteckigel"ora$="vi"t 
hen:fa=1:g0t02128 

1630 ifa$="zeigigel"ora$="zi"thenf 
a=B:ed=9:g0oto2128 

1648 if af<>"igeltext"then1668 
1658 printen$+"Text"+rf$; :inputz$: 
char,rdot(8) /8B+1,rdot( 1)/8B,z$,a:gu 
to2128 : 

1668 ifa$="wiederhole"or a$="wh”"th 
envr=a:g0:02128 

1678 if a$="Fuelle”thenlocate 455: 
peint,rdot(B8) ‚rdot( 1) :goto 21728 
1688 ifnot{fa$="inhalt"ora$ß="ih")th 
en17B8 

1698 graphic®:printcl$:directory:g 
etkeyw$:printel$:graphic2,8:poke28 
5,19:print:goto2128 

1708 ifa$="vorwaertssh”ora$="wwsh" 
then locate a;b:goto2128 

1718 ifa$="rueckwaertssh”ora$="rws 
h"thenlocate-a;b:goto2128 

1728 if a$="1s"thenprintcl$:poke28 
5,19:print:goto 2128 

1738 ifa$="rueckwaerts”"ora$="rw"th 
endrawmto-a;b:goto21209 

1748 ifa$="vorwaerts"ora$="vw"then 
drawmtoa;b:goto2128 

1758 ifa$="rechts"ora$="re”thenw=a 
:b=b+w:goto2129 

1768 ifa$="links”"ora$="1li”"thenw=36 
B-a:b=b+w:goto2128 

1778 if a$="invert"”ora$="i"then m> 
-(m=B) :sys 4388:goto 2128 

1788 ifa$="xko"thengosub?169:print 
b5$b4$c?$x1-160:goto 2128 

17908 ifa$="yko"thengosub?2168:print 
b5$b4$c2$1BR-yi:goto 2128 

1888 ifa$="schiebbild"thenifa>ithe 
nifa<4theng=8192*( a+t3) :sys(5616)q, 
32:goto 2128 

1818 ifa$="holbild"thenifa>ithenif 
a<4theng=8192*( a+3) :sys(5651)q,32: 
goto 2128 

1828 ifa$="zeigbild”thenifa>dtheni 


<op> 


<fd> 
<oh> 


<ki> 


<dh> 


<ao> 
<ınm> 
<ah> 
<ef> 
zeb> 
<fn> 
<ob> 


<ak> 


<mg> 
<fc> 
<nm?> 
<li> 
<hd> 
<ej? 
<jf> 
<og> 
<mg> 
<ki> 


<nj? 


<ie> 


<ao> 


mn 0 LU 
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fa<Atheng=8*( at3) +( a=1) #24: poke652 
98,qg:g0t02128 

1838 if a$="winkel=" then iw=a:got 
o 2128 

1848 ifa$="winkel+"thenzw=a:goto21 
2B:elseifaß="laenget"thenzl=a:goto 
2128 a 

1858 ifa$="radiere"thenm=d:goto212 
8 

1868 ifa$="luminanz"ora$="1lu"thenl 
u=a:g0t02128 

1878 ifa$="farbe"then m=1:colori,a 
‚lu:printbk$; :goto2128 

1888 ifa$="rahmen"thencolor4,a,lu: 
g0uto2128 

18908 ifa$="aufxy"then1888 

1908 ifa$="kurs"thengosub2158:goto 
2128:elseifa$="aufkurs”"ora$="ak"th 
enb=a:g0t02128 

1918 ifa$="vergiss"ora$="vg”thenif 
a<>Bthenfl=1:goto86® 

1928 ifa$="loeschefile"theninputlf 
$:sys 4948:scratch”"+1f$:sys4949:g 
oto2128 

1938 if a$="druckebild”"ora$="db"th 
enhk=2:5ys4948:gosub 1388: sys4949:g 
ot02128 

1948 ifa$="druckerein"ora$="dre"th 
enopen3,4,7:dz=1:goto2128 

1958 if a$="druckeraus"”ora$="dra”t 
hendz=@#:close3:goto2128 

19608 ifa$="ladebild"ora$="bewahreb 
ild”then goto 2248 

1978 ifa$="lade"ora$="bewahre"then 
2190: g0t02128 

1988 ifnot( a$="loeschebild"”ora$="1 
b")then288® 

1998 gosub2168:5ys59559:box1,8,8,3 
19,199: locatex1,y1:goto2128 

2090 ifa$="mitte"thenlocate 168, 198 
:b=B:w=9:gnoto2128 

2818 ifa$="bild"thensys58559:b2=B: 
b=9:hox1,8,8,319,199:locate 169,18 
9:g0t02128 

29828 ifa$="edit”"thengraphicd:run 1 
88 

2030 gosub1288 

2B48 loop 

2858 color@,4:color4,4:color1,1:tr 
ap2859:5ys4949 

2868 run 1528 

20878 hk=1:g0sub1380:goto2958 

2888 printcl$"prozedurnummer"; :inp 
utu:u1=9989+u*28: u2=18RBd+u*28-1:p 
rintel$"list"ul"-"u2 

2898 poke 1319,19:poke 1328, 13:pok 
e 239,2:end 

2188 run 1528 


<bf> 


<da> 


<pk> 
<cd> 
<el> 
<dp> 
<oi> 
<gn> 
<gk> 


<do> 


<db> 


<ea> 
<bc> 


92 


2118 end 

2128 iffa=sßthengosub1398:elsegosub 
2168 

2138 n=n+1 

2149 loop 

2158 rb=b:dountilrb<368:rb=rb-368: 
loop:printb$c2$rh:return 

2168 x1=rdot(®) :yi=rdot( 1) :return 
2178 iffa=@thenifed=®thengshapes$( 


b2) ‚x1-5,y1-5,4 

2188. resume 1578 

2198 ifa$="lade”thensys4795:sys466 
B:clr:a$="lade" 

2288 inputpn$:sys4948: ifa$="bewahr 
e"thenscratch""+pn$ 

?218 ifa$="bewahre”thensys4672,""+ 
pn$,5990@,0,?1599,8:run1528 

22290 sys4742,""+pn$,5998,8:sys4668 
:poke1319,asc( "z") :poke1328,ascl"t 
je 

2238 poke 1321, 13:poke239,3:run152 
a 

2249 inputpi$:sys 4949 

2258 ifa$ß="ladebild"thensys4477,"" 
+pi$,6144-((a=1)*2848) ,0,8:5ys4949 
:gosub 168: run 1538 

2268 sys 4462,""+pi$,6144-((a=1)*2 
048) , 16384,8:5ys4949: run 1538 

2278 rem nachspann 
2288 rem * farbeodes/steuercodes * 
2299 c4$=chr$( 817) :rn$=chr$( 918) 
2388 he$=chr$( 819) :c3$=chr$( 829) 
2348 F1$=chr$( 138) :fo$=chr$( 132) 
2328 bk$=chr$( 144) :c2$=chr$( 145) 
2338 rf$=chr$( 146) :c1$=chr$( 147) 
2348 rem #*** zeichensatz/graphik * 
2358 z3$=chr$( 164) :zv$=chr$( 192) 
2368 rem FRt#HS##r zeichenfolgen * 
2378 qd$="":qr$="":forzz=1 to 48 
2380 yd$=gd$+cA$:qr$=gr$+te3$ 

2398 nextzz 

2488 b$=chr$( 32) :b2$=b$+b$ 

2419 b3$=b2$+b$:b4$=b3$+b$ 

2428 b5$=b4$+b$:b$=b5$+b5$ 

2438 return 

5998 rem**neue befehle( programmmod 
us) Kar 

6989 return 

6998 rem***neue befehle (direktmod 
us) ##* 

7989 return 

19998 rem##*##*befehlssatz##*tF#* 

sanAn datanA,20,00,58,02,00,00,00, 
88 

60819 datau9,08,53,08,89,00,ad,89, 
265 

60828 dataff,29,82,70,03,20,68,10, 
685 


<am?> 


<gh> 
<hd> 
<le> 


<ho> 
<in> 


<fm> 
<pd> 


<gm> 
<al> 


< jm> 


<gj? 


<hdr 
<pj? 


<1ln> 


<do> 
<nl> 
<lo> 
<pe> 
<ol> 
<mp> 
<cc> 
<ek> 
<fg> 
<ck> 
<hi> 
<al> 
<bj> 
<ap?> 
<fk> 
<pi> 
<ob> 
<jn> 


<ba> 
<fo> 


<oc> 
<dg> 
<fl> 
<bp> 


<bm> 


<oa> 
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5n930 data2c,d8,07,18,8e,ad,B1,fd, 64378 data59, 10,a9,04,8d,6b,10,Bd, 

724 <ce> 843 <jb> 
sAB4Q dataßd,d4,07,10,06,20,95,ea, 60330 dataße, 18,c9,03,dB,11,a9,79, 

797 <ok> 877 E <kn? 
6ANSD data2A,5b,ea,28,e4,e3,ad,#9, 60349 dataBd,59,10,a9,7c,8d,6b, 18, 

1826 <ok> 803 BR 
6AAGA dataff,29,02,70,28,8d,09, ff, 60350 dataßd,Be,19,a9,40,85,c6,4c, 

983 <bl> 939 <al> 
68078 data2c,db,ff,a9,cc,5@,1b,6c, 60368 dataße, 10,11,78,a9,00,85,eP, 

898 <hm> 693 <pm> 
60080 data1l2,03,20,bf,cf,2@,cd,ce, 60378 dataa9,28,85,e1,0,80,b1,e®, 

894 <nm> 1128 <mp> 
60098 dataas,fb,48,39,00,85,fb,08, 60388 data49,ff,91,e0,c8,d®,f7,e6, 

1049 <bm> 1582 <ej? 
6A1AR data58,29,11,db,28,68,85,fb, 60398 datae1,a5,e1,c9,40,dA,ef,6ß, 

884 <he> 1423 <aj> 
6011M dataa9,a1,8d,db,ff,Ac,be,fc, 6AARB data49,29,20,91,94,20,2c,93, 

1255 <jd> 662 <nn> 
69120 dataad,1c,ff,29,01,d8,39,ad, 60410 dataas,6?,85,5f,a5,63,85,bB, 

936 <kd> 1144 <if> 
69130 datald,ff,c9,a4,bB,2e,24,83, 60420 dataa5,61,85,ab,28,91,94,2®, 

1838 <pc> 973 <al> 
60148 data5e,52,39,08,8d,14,ff,ad, 6BA3A data14,93,20,e4,9d,84,da,85, 

928 <oh> 1867 <jf> 
60150 datam6,ff,29,df,a8,ad,B7,ff, 60440 datadh,28,91,94,20,d2,9d,a9, 

1128 <pa> 1112 <mb> 
60168 data29,ef,aa,ad,12,ff,Bd,fa, 60458 dataß2,85,ac,86,ae,68,28,42, 

1159 <di> 899 <mp> 
68178 data®7,48,ad,1d,ff,c9,a4,98, 60468 data11,85,2d,a9,da,a6,14,84, 

1845 <mk> 1960 <ei> 
60180 dataf9,68,8d,12,ff,Bc,B6,ff, 60470 data15,20,d8,ff,60,20,42,11, 

1168 <el> 735 <jj? 
60198 dataße,87,ff,68,c9,cc,98,24, 60488 dataa9,00,85,ad,a6,da,a4,db, 

1885 <la> 1242 <ae> 
60200 dataa6,83,f0,20,10,08,ad,07, 60498 data2@,d5,ff,68,20,42,11,89, 

773 <kl> 888 <mc? 
60210 dataff,09,10,8d,07,ff,ad,B6, 60508 dataB1,85,ad,a9,00,280,d5,ff, 

862 <jg> 976 <ep> 
60228 dataff,09,20,8d,06,ff,ad, 12, 60518 data6d,ea,20,91,94,20,84,9d, 

889 <kj> 976 <bb> 
60230 dataff,29,fb,Bd,12,ff,ad,fb, 60528 dataa9,00,a8B,85,d2,85,22,86, 

1385 <ml> 981 <oj? 
60248 data07,8d,14,ff,68,7B,a9,10, 608538 datad3,20,91,94,20,84,9d,86, 

824 <ek> 991 <ge> 
60258 datadd, 13,83,8d,15,03,39,d5, 608548 data23,28,91,94,28,84,9d,ea, 

718 <oh> 915 <mg? 
60260 datadd, 14,03,58,68,05,c6,c9, 68558 dataea,28,b8,04,91,d2,cB,d@, 

912 <lc> 1289 <ji> 
68278 dataß4,da,0d,a9,06,84,59,1®, 608568 dataf6,e6,23,e6,d3,ca,däd,ef, 

646 h <hf> 1601 <1g> 
6A28N dataag,07,8d,6b, 18,8d,8e, 1P, 60570 data68,29,91,94,20,84,9d,eB, 

739 <ml> 966 <cm> 
60298 datac9,05,d80,2d,39,81,8d,59, 60580 datadp,d®,0a,20,91,94,20,84, 

955 <je> 707 <hp> 
6A3B0 data10,a9,84,8d,6b,10,8d,Be, 60598 data9d,8e,14,ff,60,e0,01,dO, 

864 <fh> 1103 <mi> 
60318 data18,c9,96,d@,Ad,a9,a1,dd, 606RR dataßa,20,91,94,20,84,9d,Be, 


915 <ch> 798 <if> 
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60618 data12,ff,69,4c,a1,94,35,2d, 6B9HR data12,60,55,5f,36,60,85,24, 

964 <ca> 895 <ee> 
60620 data85,de,a5,?2e,85,dd,68,a5, 60918 data86,25,28,3d,83,90,15,a8, 

1179 <1d> 727 <on> 
60638 datade,85,2d,a5,dd,85,2e,6®, 69928 dataß1,20,d1,04,88,aa,d®,95, 

1859 <fm> 765 j <nc> 
60648 dataaS,2b,85,e8,35,2c,85,e9, 608938 data28,d1,04,70,07,20,d1,04, 

1148 <oo> 737 <nb> 
60658 data38,a5,2d,e9,02,85,2b,a5, 60940 data85,57,86,60,35,24,38,e5, 

842 <ee> 944 <ko> 
60668 data2e,e9,00,85,2c,68,05,e8, 69958 datasf,aa,a5,25,e5,68,a8,b®, 

949 <pe> 1136 <gl> 
60678 data85,2b,a5,e9,85,2c,60,9, 68968 datalf,Ba,18,65,2d,85,2d,98, 

1916 <kf> 669 <hp> 
60680 data2a,8d,86,03,49,12,84,07, 60978 data65,2e,85,2e,aß,09,20,d1, 

527 <kh> 727 <el> 
60698 dataß3,68,48,ad,43,05,d@,fb, 560988 datam4,91,74,c8,dA,fB,e6,6B, 

875 <dk> 1167 <hj> 
607RR data6B,4c,6e,8b,a9,01,8d,92, 68998 datae6,?5,45,2e,c5,25,b@,ee, 

742 <ef> 1126 <eh> 
68718 datad4B,20,18,88,20,4c,88,68, 61ARR data?®,18,88,35,22,36,23,18, 

596 <pa> 51A ski1> 
68720 data20,91,94,20,2c,93,45,62, 61R18 data69,0?,85,2d,98,01,eB,86, 

811 <id> 796 <le> 
60739 data85,af,a5,63,85,b8,55,61, 61020 data?e,6%,a6,dc,a4,dd,20,dB, 

1143 <je> 1161 <np> 
60748 data85,ab,20,91,94,20,d2,9d, 61838 dataff,69,a0,00,98,99,08,28, 

1028 <an> 848 <fn> 
60758 data20,3d,84,35,5f,85,da,as, 61048 data99,40,21,99,88,22,c8,c®, 

1897 <dn> 957 <po> 
60768 data69,85,db,20,91,94,28,d2, 61050 data18,d®,f2,60,ad,R6,ff,29, 

1815 <gb> 19845 <bh> 
68778 data9d,86,ae,29,3d,83,18,85, 61A68 dataef,8d,A6,ff,60,ad,B6,ff, 

885 <gg> 1171 <bg> 
60780 . data5f,69,8a,85,dc,35,60,69, 61070 data®9,10,8d,86,ff,60,280,91, 

929 <je> 788 <hj? 
60798 data®®,85,dd,a9,02,85,ac,85, 61080 data94,20,84,94,86,23,28,91, 

963 <bn> 815 <em> 
60808 dataad,a9,da,4c,32,13,28,91, 61099 data94,28,84,9d,86,ae,28,91, 

882 <me> 954 <ak> 
6RBIA data94,20,2c,93,35,62,85,aAf, 61100 data94,20,84,9d4,86,d3,20,91, 

942 <ao> 991 <el> 
60829 dataa5,63,85,b9,35,61,85,ab, 61118 data94,20,84,90,86,d4,18,d8, 

1139 <kf> .1055 <nh> 
60830 data20,91,94,20,d2,9d,86,ae, 61170 dataa9,91,85,0c,85,ab,a9,07, 

1832 <nl> 955 <fm> 
5RB4R data2B,3d,8a,a5,5f,85,da,as, 61130 datad5,ad,2A,ca,ff,ad,00,a?, 

1807 <ha> 1197 <of> 
60850 data68,85,db,a9,02,85,ac,a9, . 61148 data®1,20,c9,ff,a9,0d,20,d2, 

1893 <nc> 913 <kc> 
6RB6B datal®,85,ad,a6,da,a4,db,2B, 61150 dataff,a6,d4,a9,78,98,85,22, 

1185 <gd> 1232 <jd> 
60878 datad5,ff,68,09,78,85,14,09, 61160 datand,90,a5,d3,20,d2,ff,28, 

1167 <oj? 1865 <go> 
60888 data17,85,15,20,3d,8a4,39,fc, 61170 datab®,04,29,37,85,d0,28,b®, 

829 <jb> 833 <mp? 
69898 data85S, 14,39,53,85,15,28,d2, 61188 dataß4,29,40,85,d1,18,65,d1, 

891 <en> 785 <ea> 
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61198 data65,d®,85,d0,20,b0,04,49, 61498 data18,89,0d,20,d2,ff,a@,85, 

935 <ba> 568 <ml> 
61208 data7f,29,20,85,d1,18,65,d1, 61508 datab9,8f,15,20,d2,ff,88,18, 

876 <ke> 998 $: <ac> 
61218 data65,d8,85,d2,20,b8,04,29, 61518 dataf7,a9,27,8d,52,15,a0,0B, 

985 <in> 871 <ic> 
61228 data88,c9,88,d8,17,39,12,28, 61528 data20,95,15,35,fa,18,69,88, 

997 <ej> 754 <bn> 
61238 datad2,ff,ea,ea,ea,ea,ea,a$5, 61538 data98,02,e6,fb,85,fa,ce,Se, 

1888 <ch> 1318 <cm> 
61248 datad2,28,d2,ff,a9,92,28,d2, 61548 data15,18,eb,ca, 10,d3,68,®81, 

1264 <gg> 798 <gl> 
61258 dataff,18,90,85,35,d2,28,d2, 61550 data4®,94,2a,1b,09,83,48,98, 

1845 <ne> 588 <jf> 
61268 dataff,c8,c#,28,30,b1,39,®d, 61568 data48,a9,80,8d,d?2,15,32,07, 

1894 <mo> 918 <cp> 
61270 data2ß,d2,ff,18,a5,22,69,28, 61578 dataaf,88,b1,fa,2d,d2,15,38, 

865 i <nh> 919 <cj> 
61288 data85,22,35,23,69,09,85,23, 61588 datad®,®1,18,3e,56,15,c8,c®, 

648 <hm> 794 <li> 
61298 dataca,d@,95,39,0d,28,d2,ff, 61598 dataß8,d@,ef,4e,d2,15,ca,1#, 

1238 <d1> 382 <kg> 
61300 data2d,cc,ff,a9,01,20,c3,ff, 61608 datae7,a2,07,bd,56,15,28,d2, 

1143 <bb> 938 <ia> 
61318 data6ß,ff,c4,28,49,29,aa,22, 61618 dataff,ea,ea,ea,a9,00,9d,56, 

905 <ha> 1369 <ci> 
61328 fort= 49896 to 5145 stepßB:p=8 <md> 61628 data1l5S,ca, 10,ef,68,a8,68,aa, 
61338 Fori=8t07:reada$:a=dec( a$) :p 1924 <je> 
=pta:poket+ti,a:nexti <ij?> 61630 data6Q,AP,ea,ea,ea,ea,ea,ea, 
61348 readr:ifp=rthen6 1368 <fd> 1588 <ak> 
61358 print"Pruefsummenfehler in z 61648 dataea,ea,ea,ea,ea,ea,ea,eä, 
eile"peek( 63) +peek( 64) #256: gosub61 1872 <jk> 
918:end <jn> 61650 dataea,ea,ea,ea,ea,ea,ea,ea, 
61368 next <mb> 1872 <la> 
61378 dataea,ea,ea,ea,ea,ea,ea,ea, 61660 dataea,ea,ea,ea,ea,ea,ea,ea, 

1872 <em> 1872 <kh> 
61388 dataea,ea,ea,ea,ea,ea,ea,a2, ’ 61678 data29,d2,9d,a0,00,98,85,dB, 

1888 <fh> 1852 <hp> 
61398 data18,8e,60,15,39,05,48,a2, 61680 dataa9,20,85,d1,a5,14,85,d2, 

691 <jf> 1971 <ic> 
61480 dataß4,ea,ea,a9,00,aB,28,85, 61698 dataa5, 15,85,d3,b1,d8,91,d2, 

966 <pk> 1278 <mj? 
61410 datafa,B4,fb,68,48,40,91,20, 61709 datac8,d@,f9,e6,d1,e6,d3,ca, 

1082 <1k> 1739 <of> 
61478 databa,ff,a9,08,28,bd,ff,2B, 61718 datad®,f2,68,28,d2,9d,39,08, 

1118 <aj? 1114 <ei> 
61438 datacd, ff,68,48,aa,28,c9,ff, 61720 data85,d?2,39,20,85,d3,a5,14, 

1281 <ae> 1873 <jn> 
61449 dataa9, 1b,29,d2,ff,a9,31,2®, 61730 dataB5,22,a5,15,85,23,ea,aß, 

943 j <pm> 915 <mc>? 
61459 datad2,ff,?8,5f,15,a9,1b,20, 61748 dataB@,b1,22,28,b0,04,91,d2, 

841 <ih> 778 <hi> 
61469 datad2,Ff,a9,32,20,d2,ff,28, 61750 datacB,dB,f6,e6,23,e6,d3,ca, 

1213 <ea> 1562 <fm> 
61479 datacc,ff,68,4c,c3,ff,80,00, 61768 datadd,ef,68,a2,01,bd,80,8f, 

1889 <gc> 918 <id> 
61488 data99,00,00,90,00,88,16,02, 61778 fort= 5376 to 5695 step8:p=Bd <bn> 

184 <ma> 61788 fori=8to7:reada$:a=dec( a$) :p 
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=pta:poket+ti,a:nexti 

61798 readr:ifp=rthen61818 

61888 print"Pruefsummenfehler in z 
eile"”peek[ 63) +peek( 64) #256: gosub61 
918:end 

61818 next 

61828 return 

61838 gosub 61988 

61848 color®,4:color4,4:color1,1:p 
rintchr$( 14) 

61858 printcl$ 

61868 fori=1toß:keyi,”":next:key4, 
"run 1528"+chr$( 13) 

61878 key5,"pn$="+chr$( 34) +"delete 
"+chr$( 34) +" :g0t02229"+chr$( 13) 
61888 gosub6BBAB:poke4796,96:poke4 
Bmw, 234:poke48987,48:poke 4811,242 
61899 return 

61908 poke 65286, peek( 65286) and 2 
39:return 

61918 poke 65286, peek( 65286) or 16 
:return 

61920 rem igel==================p4 
61938 rem 68671 bytes memory 

61948 rem 15987 bytes programm 
61958 rem (im urzustand) 

61968 rem 

61978 rem achtung I!!! 

61988 rem programm darf nicht 
61998 rem umnummeriert werden 
620800 rem ======================== 


N 


Ben 


DELETE FUER 
IGEIGRAFIK 


5999 rem *neue befehle (programmmo 
dus) * 

6989 return 

69998 rem *neue befehle (direktmodu 
«# © 

7989 return 

19998 #**#ftbefehlssatz*t##** 


{{B8U:)) Programm DELETE fuer IGEL-Grafik 


5998 rem demo.pkt===============p4 
saBRa ifa$="quadrat"thenw$l( i)=str$(l 
i)+t":go5 IABAa” :gotaB48 

6920 ifa$g="kKisteS"thenw$li)=str$li 
)+"”:g05 10028” :g0t0848 

6848 ifa$="sternS"thenw${li)=str$li 
)+":g0S 18048" :goto84® 

686B ifa$=-"dreieck"thenw$li)=str$( 
i)t":go5 108609" :goto848 

6088 ifa$=-"drehquadrat"thenw$li)=s 
tr$li)+”:goS 10080" :gotuB4 
(2) 

6188 ifa$=-"mitte”"thenw$li)=-str$(i) 
+":go5 18108" :goto848 

6128 ifa$="demodrehquadrat”"thenw$l 
i)=str$(i)+”":g0S 18128" :goto84 
8 

6148 ifa$="stern"thenw$(i)=str$(i) 
+”:g05 18140” :goto848 

6168 ifa$="demostern”"thenw$li)=str 
$li)+":goS 19160" :goto84 
1%) 

6188 ifa$="stern2”"thenw$li)=str$li 
)+":goS 18188" :gotoB48 

6288 ifa$="demostern2”"thenw$[ i)=st 
r$(i)+":g0o5 10200" :g0ot084 
13) 

6228 ifa$="rechteck1-5"thenw$[i)=s 
tr$li)+t":go5 18228” :goto84 
8 

6248 ifa$="rechteck1-3"thenw$[i)=s 
tr$(i)+":goS 192489” :goto84 
8 

6268 ifa$="rechteckrot."thenw$( i)= 
str$(i)+":goS 18260" :goto8B4 
8 

6288 ifa$="drehquadrat2”"thenw$( i)= 
str$(i)+":go5 19289” :gotoB4 
8 

6308 ifa$="fassade"thenw$li)=str$( 
i)+t":go5S 10388" :goto848 

6328 ifa$="gehvor”"thenw$li)=str$(i 
}+"”:goS 18320” :goto849 

6348 ifa$="fassaden"thenw$(i)=str$ 
(i1)+":g05 19348" :goto848 

6368 ifa$="rbogen"thenw$(i)=str$li 
)+":go5 18368” :goto848 

638R ifaf="blatt"thenw$(i)=str$(i) 
+”:g0S 18388" :goto848 

6488 ifa$="dolde"thenw$li)=str$[(i) 
+":g05 190409” :goto848 

6428 ifa$="stiel"thenw$(li)=str$(i) 
+”:g05 190420” :goto848 

6448 ifa$="blume"thenw$(i)=str$(i) 
+":g05 104409" :goto848 

6468 ifa$="garten”thenw$(i)=str$li 
)+":g0o5 184680" :goto848 


6488 ifa$="blumenmotiv"thenw$[i)=s 


<nj? 
<nc> 
<ol> 
<pd> 


<pe> 


<gp> 


<oo> 


<jl> 


<ko> 


<ab> 


<ed> 


<kp> 


<bn> 


<kp> 


<bj> 


<ho> 
<1f> 
<bg> 
<lo> 
<dh> 
<fo> 
<fj> 
<lm> 
<kf> 


<bo> 
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tr$li)+" 
B 

6588 ifa$="demol"thenw$li)=str$(i) 
+":g05 19500" :goto848 

6528 ifa$="demo2"thenw$( i)=str$(i) 
+":g05 19528" :goto848 

6548 ifa$="demo3”"thenw$l i)=str$(i) 
+":g05 18540" :goto848 

6568 ifa$=-"demo4"thenw$li)=str$(i) 
+":g05 19568" :gotoB4R 

6588 ifa$="demo”"thenw$li)=str$(i)*+ 
":g05 19588" :goto849 

6688 ifa$=-"wachsquadrat”thenw$li)= 


:go5 184809” :goto84 


str$(i)+":go5 18608" :goto84 
1% 
66?8 ifag="wachsfassade"thenw$li)= 
str$(j)+":goS 19620" :gotoB4 
[3] 


6989 return 

6998 rem***neue befehle (direktmod 

us) ##* 

708 ifa$="quadrat”thencsa:gosub 1 

ARaR:goto21728 

7A20 ifa$="kisteS"thenc=a:gosub 18 

828: g0t02128 

7848 ifa$="stern5”"thenc=a:gosub 18 

848: g0t02120 

7A6B ifaß-"dreieck"thenc=a:gaosub 1 

B06R:g0to212B 

7888 ifa$="drehquadrat”thenc=a:gos 

ub 10888:g0t02128 

7188 ifa$="mitte"thenc=a:gosub 181 

88:g0t02128 

7128 ifa$="demodrehquadrat”thenc=a 
:gosub 18129:g0t02128 

7148 ifa$="stern”thenc=a:gosub 181 

AB:g0t02120 

7168 ifa$="demostern”thenc=a:gosub 
18168: g0t 02128 

7188 ifa$="stern2"thenc=a:gosub 18 
189:g0t02128 

7289 ifa$="demostern?2”"thenc=a:gosu 

b 18289:g0t02128 

7220 ifa$="rechteck 1-5"thenc=a:gos 

ub 18229: g0t02128 

7248 ifa$="rechteck1-3”thenc=ä:gos 

ub 19?48:g0t02128 

7260 ifa$="rechteckrot."thenc=a:go 

sub 18268: g0t.02128 

7288 ifa$="drehquadrat?"thenc=a:go 

sub 18289: got0212® 

7308 ifa$="fassade”thenc=a:gosub 1 

B308:g0t02128 

7328 ifa$="gehvor"thenc=a:gosub 1 

329:g0t02128 

7348 ifa$="fassaden"”thenc=a:gosub 

18348:g0t02128 

7368 ifa$="rbogen"”thenc=a:gosub 18 


<gl> 
<nc> 
<ih> 
<ap> 
<fk> 


< jm> 


<nf> 


97 


368:got02128 

7388 ifa$="blatt"thenc=a:gosub 183 
80:gotoR2128 

7488 ifa$="dolde"thenc=a:gosub 184 
AB:goto2128 

7428 ifa$="stiel"”thenc=sa:gosub 184 
28:goto2128 _ 

7448 ifa$="blume"thenc=a:gosub 1B4 
48:g0ot02128 

7468 ifa$="garten"thenc=a:gosub 18 
468:g0t0212B 

7488 ifa$="blumenmotiv"thenc=a:gos 
ub 18489:g0t0212®8 

7588 ifa$="demol"thenc=a:gosub 
88:g0t02128 

7528 ifa$="demo2"thenc=a:gosub 
28:g0t02128 

7548 ifa$="demo3”"thenc=a:gosub 
48:g0t02128 

7568 ifa$="demo4"thenc=a: ol 
69:g0t02128 

7588 ifa$="demo"thenc=a:gosub 1858 
A:g0t02128 

7609 ifaß=" BER IRRE BR thenc=a:go 
sub 18699: goto2128 

7628 ifa$="wachsfassade"thenc=a:go 
sub 19628:goto2128 

79869 return 

18888 

10881 draw m to B+c;b 

18882 w= 98:b=b+w:if b>36@thenb=b- 
368 

18883 draw m to B+c;b 


185 


185 


185 


185 


18884 w= 98:b=b+w:if b>36ßthenb=b- 
368 
18885 draw m to B+c;b 


18886 w= 
368 
18997 draw m to B+c;b 

10888 w= 98:b=b+w:if b>368thenb=b- 
368 
12089 


98:b=b+w:if b>36Bßthenb=b- 


return 
18028 c= 18 
18821 :gosub 
ıAa22 c= 28 
18023 :gosub 
19924 c= 38 
190025 :gasub 
18826 c= 48 
180827 :gosub 
18928 c= 58 
18829 :gosub 
18838 return 
18840 : 
18841 ri= 5 
18842 z 1=8:do 

18843 draw m to B+tc;b 

10844 w= 144:b=b+w:if b>36Bßthenb=b 


18898 
10088 
12808 
1oan 


18888 
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-368 <mg> 18172 return <ff> 
18845 z 1=z 1+1:loopuntilz 1>=r 1 <oc> 18180 : <bb> 
189046 return <fi> 18181 : <bd> 
12068 : = <ca> 18182 do until b> 359 ; <ej? 
18861 ri= 3 <co> 18183 draw m to B+tc;b xdo> 
18062 z 1=B:do <eh> 18184 w= Btiw:b=b+w:if b>36ßthenb= 

10963 draw m to B+c;b <mg> b-368 <lm> 
18064 w= 128:b=b+w:if b>36ßthenb=b 18185 loop:c=® <ep> 
-368 <bn> 18186 return <hb> 
18065 z 1=z 1+1:loopuntilz 1>=r 1 <io> 18200 iw= 144 <gn> 
18866 return <ia> 18281 c= 188 <bg> 
18088 :  xej? 10202 :gosub 19188 <ji> 
18881 do until b> 359 <mi> 108283 :gosub 18188 <ak> 
18882 c= 58 <bd> 18284 iw= 135 <el> 
10083 :gosub 18008 <el> 18205 c= 58 <11> 
1984 w= Btiw:b=b+tw:if b>36@thenb= 108206 :gosub 18188 <jk> 
b-368 <jp> 18287 :gosub 18188 <ai> 
10985 loop:c=® <mc> 108208 iw= 168 <eh> 
18086 return <kj> 108289 c= 28 <pf> 
In1aa ramttput® <op> 18218 :gosub 18188 <je> 
18101 locate16@+L(rgr(3)=3orrgr( A) 18211 return <kc> 
=4)*89) , 100:b=d:w=® <nh> 182208 : <ga> 
181902 rem**pd** <km> 18221 ri= 2 <cl> 
181083 for v=1 to 2@88:next <dm> 18222 z 1=8:do <ep> 
18184 x=rdot(B8) :y=rdot( 1) :scnelr:1 18223 draw m to 1*c;b <ie> 
ocate x,y <kc> 18224 w= 98:b=b+w:if b>36@thenb=b- 

18185 return <mp> 368 <bl> 
18128 iw= 45 <kj? 18225 draw m to 5#c;b <me> 
18121 :gosub 18984 <im> 18226 w= 98:b=b+w:if b>368thenb=b- 

18122 :gosub 18198 <ac> 368 <oh> 
18123 iw= 98 <ao> 18227 z 1=z 1+1:loopuntilz 1>=r 1 <la> 
10124 :gosub 10888 <ap> 18228 return <me> 
18125 :gosub 18188 . <ic>? 18248 : <ik> 
18126 iw= 15 <ge> 18241 ri= 2 <hp> 
18127 :gosub 18080 <ij> 108242 z 1=8:do <jo> 
10128 :gosub 18188 <pn> 18243 draw m to 1#c;b <kd> 
18129 iw= 58 <mh> 18244 w= 99:b=b+w:if b>36@thenb=b- 

18130 :gosub 18888 <ac> 368 <be> 
18131 return <ad> 19245 draw m to 3*#c;b <mb> 
181408 : <mb> 18246 w= 98:b=b+w:if b>36@thenb=b- 

18141 do until b> 359 <ko> 368 <oo> 
18142 draw m to 58;b <ak> 18247 z 1=z 1+1:loopuntilz 1>=r 1 <Iig> 
10143 w= B+iw:b=b+w:if b>368thenb= 18248 return <00> 
b-368 <ko> 18268 r2= 6 <li> 
18144 loop:c=® <cd> 18261 z 2=8:do <gh> 
18145 return <bp> 18262 :gosub 19228 <dn> 
18160 iw= 135 <hc> 18263 w= 68:b=b+w:if b>36B@thenb=b- 

18161 :gosub 18148 <he> 368 <ep> 
18162 :gosub 19188 <og> 18264 z 2=z 2+1:loopuntilz 2>=r 2 <ba> 
18163 iw= 144 <dd> 18265 return <ba> 
19164 :gosub 190148 <op> 18280 : <nk> 
10165 :gosub 10180 <gg> 10281 z 2=0:do <ga> 
198166 iw= 158 <no> 18282 :gosub 18888 <co> 
18167 :gosub 19148 <hb> 10283 w= B+iw:b=b+w:if b>36Bthenb= 

18168 :gosub 18188 <pj> b-368 <dl1> 
18169 iw= 168 <kf> 18284 z 2=z 2+1:loopuntilz 2>=r 2 <me> 
18178 :gosub 18148 <ac> 18285 return <di> 
18171 :gosub 18198 <hl> 18388 : <ac> 


98 


10381 
18382 draw m to B+c;b 


18303 w= 


368 


:gosub 18888 


38:b=b+w:if b>36ßthenb=b- ' 


18304 :gosub 19868 


108385 w=360-( 38) :b=b+w:ifb>36ßthe 


nb=b-368 


18386 draw m to-( B+c);b 


18307 


return 


108328 : 
18321 rem#*pu** 


18322 
369 


19323 locate 1B8+c;b 
10324 w=368-( 98) :b=b+w:ifb>36ßthe 


w= 96:b=b+w:if b>36Bthenb=b- 


nb=b-368 
rem#fpc ar 


18325 
12326 
190348 
19341 
18342 
19343 
190344 
19345 
18346 
19347 
18348 
18349 
12358 
18351 


18368 : 


18361 
18362 
18363 
18364 
368 

18365 
18366 
18388 
18381 
368 

12382 
12383 
368 

0384 
18488 
18481 
10492 
1904803 
368 

18484 
18485 


return 
c=-188 
:gosub 
c= 18 

:gosub 
:gosub 
c= 28 

:gosub 
:gosub 
c= 38 

:gosub 
:gosub 
return 


ri= 9 


1328 


18388 
18328 


18388 
18328 


18308 
18328 


z 1=8:do 


draw m to B+c;b 
w= 18:b=b+w:if b>36ßthenb=b- 


z 1=z 1+1:loopuntilz 1>=r 1 


return 
:gosub 


w= 98:b=b+w:if b>36Bthenb=b- 


:gosub 


w= 98:b=b+w:if b>36Bthenb=b- 


return 
r2= 3 


10368 


18369 


z 2=9:do 


:gosub 


w= 68:b=b+w:if b>368thenb=b- 


z 2=z 2+1:loopuntilz 2>=r 2 


return 


18428 : 


18421 
18422 
18423 
18424 
18425 


draw m to 7*c;b 


:gosub 


draw m to 14*#c;b 


:gosub 
return 


18388 


10388 


19408 
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<je> 
<le> 


<di> 
<bn> 


<po> 
<ni> 
<ge> 
<ck> 
<jk> 


<ko> 
<gl> 


<dd> 
<tk> 
<ik> 
<en?> 
znis 
<fk> 
<enj> 
<fm> 
<im> 
<fl> 
<np> 
<ma> 
<ni> 
<fn> 
<1ln> 
<hl> 
<an> 
<le> 
<al> 


<cm? 
<ed> 
<n1> 
<jg? 


<ij? 
<jb> 


<con> 
<pp> 
<ho> 
<ig> 
<ih> 


<pl> 
<pe> 
<cj? 
<pd> 
<mo> 
<ib> 
<pm> 
<ie> 
<fb> 
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19448 : 


18441 
18442 
198443 
9444 
18468 
18461 
18462 
18463 
18464 
18465 
18466 
18467 
18468 
18469 
18478 
18471 
18472 


:gosub 
:gosub 
draw m 
return 
=-68 
:gosub 
e= 1 
:gosub 
c= 38 
:gosub 
c= 2 
:gosub 
c= 38 
:gosub 
c®= 3 
:gosub 
return 


18488 : 


18481 
18482 
18483 
b-368 
18484 
18485 
12588 
19591 
18582 
18583 
108504 
18585 
18586 
18507 
18508 
198589 
18518 
18511 
18528 
18521 
18522 
18523 
10524 


18525 : 


18526 
18527 


18528 : 
108529 : 


19538 
18531 


18532 : 


18533 


108548 i 


108541 


18542 : 
18543 : 
18544 : 
180545 : 
10546 


.b=B: 


:gosub 


w= Ariw:b=b+w:if b>36Bßthenb= 


loop 

return 
c= 58 
:gosub 
:gosub 
:gosub 
:gosub 
c= 88 
:gosub 
:gosub 
c= 48 
:gasub 
:gosub 
return 
:gosub 
:gosub 
:gosub 
:gosub 


104289 
18488 
to-(21#c});b. 


18328 
18448 
18328 
19448 
18328 


10448 


do until b> 359 
18448 


18808 
18188 
198828 
18188 


18948 
181898 


18868 
18188 


18128 
19188 
18168 
18188 


18228 
18188 


18248 
18188 


19268 
18188 


18288 
18188 
18348 
18188 


<bl> 
<pc> 
<gp> 
<im> 
<hh> 
<ij> 
<je> 
<nb> 
<jj? 
<ph> 
<ja> 
<pc> 
<kd> 
<dg> 
<ji> 
<bd> 
<kf> 
<ko> 
<gak> 
<io> 
<bk> 


<ab> 
<ce> 
<mi> 
<fa> 
<dj> 
<mb> 
<xea> 
<mc> 
<ke> 
<mh> 
<ec> 
<mm> 
<ej? 
<1n> 
<po> 
<ko> 
<ck> 
<1h> 
<cl> 
<mj? 
<db> 
<kf> 
<pl> 
<lc> 
<co> 
<cj? 
<do> 
<km> 
<ck> 
<fj> 
<oa> 
<mb> 
<cn> 
<lo> 
<cg> 
<ci> 


Be 
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18547 
18548 
10549 
19558 
18551 

198568 
18561 

18562 
18563 
18564 
18565 
18566 
18567 
10568 
18569 
19578 
18571 
19572 
18573 
19598 
18581 
18582 
18583 
19584 
10608 
198601 
106802 
18683 
19684 
18685 
18628 
18621 
19622 
18623 
10624 
18625 
10626 
18641 

18642 
18643 
18644 
19645 
19646 
19647 
18648 
19649 
19659 
18651 

18652 
18653 


:gosub 
:gasub 
:gosub 
:gosub 


18368 
18188 
18389 
18188 


return 


c= 


iw= 
= 


2 

:gosub 
:gosub 
:gosub 
:gosub 
:gosub 
:gosub 
:gosub 
:gosub 
:gosub 


19488 
18408 
18108 
18428 
198188 
198448 
18108 
10468 
18108 
38 


3 
:gosub 


18488 


return 


:gusub 
:gosub 
:gosub 
:gosub 


ıasad 
18528 
19548 
18568 


return 


zl= 


:do until c> 


18 
188 


:gosub 18998 
c=ctzl 
loop:c=® 
return 


zi=- 
:do 


18 - 
until c> 68 


:gosub 19388 
:gosub 18328 
c=c+tzl 
loop:c=®d 
return 


c= 


:gosub 19488 
c= 18 
:gosub 18368 
return 


rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


demo .pkt==============p4 
nur in verbindung 
mit igel-programm 


achtung !!! 
programm darf nicht 
umnummeriert werden. 


<dk> 
<ke> 
<dn> 
<kj? 
<eo> 
<ol> 
<xck> 
<kl> 
<bp> 
<km> 
<bm> 
<1f> 
<ch> 
<lk> 
<cc? 
<ak> 
<ed> 
<lm> 
<hk> 
zkea> 
<ci> 
<1b> 
<ge> 
<jb> 
<il> 
<pe> 
<mp?> 
<gi> 
<ob> 
<11> 
<bj? 
<jc> 
<pn?> 
<ia> 
<11> 
<ig> 
<of> 
<hh> 
<bd> 
<dp> 
<ai> 
<al> 
<gf> 
<mb> 
<pi> 
<be> 
<od> 
<ig> 
<ih> 
<hl> 


WANDELN VON SEQUENTIELLEN DATEIEN 


IN PROGRAMMFILES 


Watson 
und Holmes 


zeig 


en 


ihren Spürsinn 
Zum Wandeln von sequentiellen Files in 
Programmfiles bedarf es keines Programmes. Der 
Rechner ist dazu bereits selbst in der Lage. 
Komfortables Mergen und eine neue Art zu program- 
mieren werden möglich. 


In London, Bakerstreet 
Nummer 27, ereignete 
sich eine denkwürdige Be- 
gebenheit, die für alle Be- 
sitzer eines Commodore- 
Heim-Computers von Nut- 
zen sein dürfte. An besag- 
tem Orte befindet sich 
nicht etwa eine Soft- 

oder Hardware-Firma. 
Auch kein Computerspe- 
zialist hat hier seinen 
Wohnsitz. Wohl aber 
wohnt dort jemand, der 
wegen seines Spürsinnes in 
besonders verzwickten 
Fällen Weltruhm erlang- 


te. 

Er ist Junggeselle, doch 
ist er nicht gerade ein- 
sam. Denn einerseits hat 
er seine Arbeit, die ihn 
oft bis zur Erschöpfung 
in Anspruch nimmt, ande- 
rerseits teilt er das Haus 
mit einem Freund, einem 
vorzeitig wegen einer 
Kriegsverletzung pensio- 
nierten Militärarzt. Sie le- 
ben in getrennten Räu- 
men, nur das Wohnzim- 
mer teilen sie sich. Da ihre 
Charaktere sich gegensei- 
tig ergänzen und beide 
zum Ausgleich neigen, ge- 
staltet sich ihr Zusam- 
menleben ziemlich unpro- 
blematisch. 

Dr. Watson, der frühere 
Militärarzt, braucht sich 
über Langeweile nicht zu 
beklagen. Als guter Freund 
und ständiger Begleiter 
steht er Holmes, dem be- 
rühmten Privatdetektiv, 
in all seinen Fällen zur 
Seite und ist stets um 
dessen Wohl und Gesund- 
heit besorgt. Er entlastet 
Holmes durch seine As- 
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sistenz und achtet darauf, 
daß sein Freund sich nicht 
total übernimmt. Öfters 
schon mußte er ihn ge- 
mahnen, unbedingt zur 
Regeneration der Kräfte 
einen Erholungsurlaub 
einzulegen. 

Da Rauchen der Gesund- 
heit abträglich ist, hält er 
davon nichts und hätte 
Holmes nur allzugerne da- 
von abgebracht. Er hatte 
damit allerdings nicht 
viel Erfolg, obwohl 
Holmes aus Rücksicht 
auf manches Pfeiflein 
verzichtete. Beim Nach- 
denken über schwer 
durchschaubare Sachver- 
halte verschafft ihm die 
durch die kräuselnden 
Rauchwölkchen erzeug- 
te Atmosphäre eine Ent- 
spannung und geistige 
Klarheit, wie sie andere 
nur durch viele Jahre 
praktizierte Meditations- 
übungen zu erreichen 
vermögen. 

Ein weiterer Punkt fin- 
det ebenso wenig Wat- 
sons uneingeschränkte 
Zustimmung. Er, der ei- 
nen fast pedantisch zu 
nennenden Hang zur 
Ordnung hat, stört sich 
manchmal doch etwas 
daran, wenn es Holmes 
damit nicht so genau 
nimmt. 

Holmes hatte erst am 
vorigen Tag einen aufse- 
henerregenden Krimi- 
nalfall abgeschlossen, 
worin ihn die Polizei um 
seine Mitarbeit gebeten 
hatte, da sie mit ihren 
Ermittlungen nicht wei- 
terkam. Etliche Tage 


El Ei 


und Nächte war er un- 
terwegs gewesen und 
entging einmal nur knapp 
einem auf ihn verübten 
Anschlag. Watson als 
Freund und Arzt hatte 
ihn dringend ermahnt, 
zumindest für einen Tag 
auszuruhen und dabei 
jeden Gedanken an Mord 
und Verbrechen zu ver- 
werfen. 

Doch es sollte wieder ein- 
mal anders kommen. 
Zwar ging es nicht um 
Verbrechen, jedoch trotz- 
dem um einen Fall, der 
Holmes’ ganzen krimi- 
nalistischen Spürsinn er- 
forderte. 

Als Holmes, der erst ge- 
gen Mittag erwacht war, 
die Treppe zum Wohn- 
zimmer herunterkam, 
verschlug es ihm fast 

den Atem. Nein, so etwas 
hatte er wirklich nicht er- 
wartet, zumindest nicht 
von Watson mit seinem 
Ordnungssinn. Der 
Schreibtisch war völlig 
übersät von Disketten. 
Übers ganze Wohnzim- 
mer verstreut lagen 
Computerzeitschriften, 
teilweise aufgeschlagen. 
Watson schob eifrig eine 
Diskette nach der ande- 
ren in das Disketten- 
laufwerk und warf sie 
kopfschüttelnd auf den 
immer größer werden- 
den Haufen. Den in der 
Türe stehenden Holmes 
schien er nicht zu be- 
merken. 


WANDLUNG 
PER PROGRAMM 


Plötzlich sprang Watson 
auf, eilte auf den Wohn- 
zimmerschrank zu, riß 
einen weiteren Packen 
Computerzeitschriften 
heraus und blätterte die- 
se wie wild durch, wäh- 
rend er durch das Zim- 
mer tigerte. Urplötzlich 
stoppte er, als er Holmes 
stehen sah, der ihn ver- 
wundert musterte. 
Holmes fragte ihn nach 
dem Grund des seltsa- 
men Gebarens. Watson 
bot ihm den noch frei 
gebliebenen Sessel an und 
schilderte, was vorgefal- 
len war: Einer seiner 


Bekannten aus dem Com- 
puterclub sei vorbeige- 
kommen und habe ihn 
um seine Mithilfe bei 
einem Problem gebeten. 
Dieser Bekannte hätte 
sich aus einer Mailbox 
ein BASIC-Programm 
geholt und es auf Disket- 
te abgespeichert. Leider 
liege es nun als sequen- 
tielles File vor, das zwar 
mit einer Textverarbei- 
tung begutachtet werden 
könne, aber so natürlich 
nicht lauffähig sei. 

Er, Watson, habe ihm 
Hilfe versprochen, da er 
sich noch an ein Pro- 
gramm erinnern konnte, 
das sequentielle Files in 
Programm-Files verwan- 
delte. Er habe es leider 
weder auf seinen Disket- 
ten noch in den bis jetzt 
durchgeschauten Com- 
puterzeitschriften ent- 
decken können. 

Holmes sah ihn lange 


mit nachdenklichem Aus- 
druck an, ehe er sich 
schließlich zu diesem 
Fall äußerte. ‚Wenn das 
Umwandlungsprogramm 
nicht zu entdecken ist, 
so gibt es noch die Mög- 
lichkeit des Selberma- 
chens‘‘, sagte er. ‚Es wä- 
re nur zu klären, wie da- 
bei vorzugehen ist. Wat- 
son, was können Sie mir 
darüber sagen? Ist Ihnen 
vielleicht noch ein An- 
haltspunkt in Erinne- 
rung geblieben?“ _ 

„Das sequentielle File 
wurde vom Datenträger 
in den Hauptspeicher 
des Rechners geladen, 
was nicht besonders 
schwer zu realisieren sein 
dürfte. Neben dieser 
Laderoutine ist aber 
noch eine zweite Routi- 
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ne erforderlich, die den 
im Hauptspeicher abge- 
legten Text zeichenwei- 
se in den Tastaturpuffer 
schiebt‘‘, antwortete 
Watson. 

Es dauerte ein wenig, 
bis Holmes sich die Sa- 
che durch den Kopf hat- 
te gehen lassen. ‚‚Ja, so 
wäre es durchaus durch- 
führbar. Eine in den Sy- 
steminterrupt eingebun- 
dene Maschinenroutine 
könnte alle fünfzigstel 
Sekunden ein Zeichen 
in den Tastaturpuffer 
senden, sofern dieser 
nicht bereits voll ist, was 
aber leicht abzufragen 
wäre. Nur erscheint mir 
dieses Verfahren doch 
ein wenig aufwendig. 


EINGABEGERÄT 
UMDEFINIEREN 


Watson, können Sie sich 


vorstellen, daß die ganze 


Sache auch viel einfa- 
cher zu bewerkstelligen 
wäre?“ 

Watson bemerkte sophi- 
stisch: „Daß es geht, 
darüber habe ich keine 
Zweifel, wie es geht, 
kann ich mir leider nicht 
denken.“ ‚Lieber Wat- 
son, worin besteht für 
den Rechner der Unter- 
schied zwischen Tasta- 
tur und Diskette?“, hak- 
te Holmes nach. ‚Die 
Tastatur ist das Gerät, 
über das der Rechner so- 
wohl direkte Komman- 
dos als auch zu erfassen- 
de BASIC-Zeilen an- 
nimmt. Von der Disket- 
te hingegen funktioniert 
das wohl nicht“, ant- 


wortete Watson unsicher. 


Schließlich brachte es 
Holmes auf den Punkt: 


„Nimmt der Rechner 
prinzipiell keine Kom- 
mandos von der Diskette 
entgegen oder nur, weil 
er nicht.weiß, daß er sie 
sich von dort herunter- 
lesen soll?“ 

Watson geriet ins 
Schwanken. Er mußte 
notgedrungen zugeben: 
„Wenn Disketten- oder 
Kassettenlaufwerk als 
Eingabegerät definiert 
wären, so bestünde die 
Möglichkeit, daß der 
Rechner seine Direktbe- 
fehle und BASIC-Zeilen 
sich von dort hoit. Ob 
dieses zutrifft, kann je- 
doch nur ein Test bestä- 
tigen.“ 

Holmes, dem anzumer- 
ken war, daß er Watsons 
Gedankengänge bereits 
vorausgesehen hatte, be- 
stätigte das Gesagte und 
fing an, ihm zu diktieren, 
was er in seinen Rechner 
eingeben sollte: 


1 OPEN8,8,8,“TEST, 
Ss W“ 


2 CMD8 
3 7“GRAPHICI,1“ 
4 }CIRCLE, 100,100, 


5 PRINT#8,“SYS 
65484“ 
6 CLOSE8 


Nach dem Start mit RUN 
würde eine Datei namens 
TEST auf der Diskette 
eingerichtet, die einen 
GRAPHIC-, CIRCLE- 
und SYS-Befehl jeweils 
in ASCII-Darstellung ent- 
halte, erklärte Holmes. 
Die Datasettenbenutzer 
hätten die ersten zwei 
Zeilen davon zu ersetzen 
gegen: 


1 OPENI ‚1,1,“TEST“ 
2 CMDI 


EINGABEKANAL 
UMSCHALTEN 


Auf die Frage, was der 
SYS-Befehl am Ende be- 
deute, antwortete 
Holmes: „Es handelt sich 
hierbei um die Kernal- 
Routine CLRCHN, die 
die Eingabe wieder auf 
die Tastatur umlegt. 
Genausogut wäre auch 
ein Wort gewesen, das 
der Rechner nicht ver- 


BED 


steht. Würden wir den 
Namen HOLMES statt 
SYS65484 schreiben, so 
würde der Rechner in- 
folge der Fehlerbehand- 
lung ebenfalls auf die 
Tastatur umschalten. 
Störend wäre in unse- 
rem speziellen Beispiel 
allerdings gewesen, daß 
dadurch wieder auf den 
Textbildschirm umge- 
schaltet werden würde 
und die Graphic somit 
nicht lange sichtbar 
bliebe. Wollen wir doch 
gleich einmal die Direkt- 
eingabe von externem 
Gerät ausprobieren.“ 


OPEN8,8,8,“TEST,S,R“ 
POKE2035,8 
SYS65478 


Bei Datasette ist die 
OPEN-Anweisung zu er- 
setzen: 


OPEN8 ,1,0,“TEST“ 


Am Ende sollte der Ein- 
gabekanal wieder mit 
CLOSES abgeschlossen 
werden. 


Watson erinnerte sich des 
Maschinensprachkurses 
in der C16/P4-SPECIAL 
Nr. 2 und identifizierte 
den SYS-Aufruf: „Bei - 
SYS65478 handelte es 
sich um CHKIN, wo- 
durch ein Eingabekanal 
geöffnet wird. Vorher 

ist dem X-Register die 
Kanalnummer zu über- 
geben, was in BASIC 
durch Poken an die 
Adresse 2035 geschieht.“ 
Er fing an zu strahlen, 
denn das Problem schien 
bereits gelöst. Mit einem 
OPEN-, einem POKE-, 
und einem SYS-Befehl 
ließe sich sein sequentiell 
vorliegendes Programm 
in ein normales BASIC- 
Listing umwandeln. 
Gleich machte er sich ans 
Werk. Als er das Pro- 
gramm auflistete, stutzte 
er: „Nur eine einzige 
Programmzeile wurde 
übernommen.“ Um ei- 
nen Bedienungsfehler 
auszuschließen, probier- 
te er esnoch’ein paar- 
mal, jedoch immer wie- 
der mit dem gleichen Er- 
gebnis. 


Holmes hatte sich weit 
in seinem Sessel zurück- 
gelehnt und paffte aus 
seiner Pfeife Rauchringe 
und sich kräuselnde 
Wölkchen. Watson, der 
ihn gut kannte. sah an 
seinem Ausdruck, daß er 
anscheinend eine Spur 
gefunden hatte und er 
ihn jetzt keineswegs in 
seinen Überlegungen stö- 
ren durfte. Nach einiger 
Zeit hörte er: „Watson, 
ich hab es. Um sicher zu 
sein, brauche ich aller- 
dings nur kurz das ROM- 
Listing.“ 

Watson holte es aus dem 
Bücherregal und reichte 
es ihm gespannt. Nach 
kurzem Blättern sagte 
Holmes: „Genau so, wie 
ich es mir gedacht hat- 
te. Bei der Übernahme 
einer BASIC-Zeile wird 
die CLR-Routine aufge- 
rufen. Watson, sicher- 
lich wissen Sie, was der 
BASIC-Befehl CLR tut.“ 
Watson wußte es: „CLR 
löscht alle Variablen.“ 
„Das ist aber nicht alles, 
Watson. CLR schließt . 
auch die I/O-Kanäle und 
beseitigt zudem alle Ein- 
träge in der Filetabelle.“ 
„Schade“, bemerkte 
Watson enttäuscht. ‚Da- 
mit ist die Sache wohl 
gestorben.“ 


VERBIEGEN DES 
VEKTORS ICLALL 


„Mitnichten, lieber Wat- 


son. Eigentlich ist es ja 
nicht die CLR-Routine, 
die das Schließen des Ka- 
nals vornimmt, sondern 
eine Routine, die von 
CLR aufgerufen wird, 
nämlich die Kernal-Rou- 
tine CLALL.“ ‚Die steht 
an Adresse $FFE7, dezi- 
mal 65511,im ROM, 
was uns wenig nützt. Je- 
doch habe ich erst vor 
kurzem etwas über Ver- 
biegen von Sprungvek- 
toren gelesen. CLALL 
müßte indirekt über den 
Sprungvektor ICLALL 
in den Adressen $032A 
und $032B verzweigen.“ 
Anerkennend sagte 
Holmes: „Gut, Watson, 
damit haben wir die Lö- 
sung. Wir schalten 


CLALL aus, indem wir 
ICLALL auf einen Rück- 
sprungcode RTS zeigen 
lassen. Ein solcher fin- 
det sich genau vor der 
CLALL-Routine. Wir 
brauchen somit nur den 
Inhalt der Speicherzelle 
$032A, dezimal 810, um 
eins erniedrigen. Die Me- 
thode, um sequentiell 
vorliegende Programme 
in BASIC-Programme 
en ist gefun- 
en.“ 


OPENS,8,8,“SEQFILE 
POKE2035,8 
SYS65478 


FEHLENDE 
TASTATURUM- 
SCHALTUNG 


Wenn dem zu wandelnden 


sequentiellen File am 
Schluß der SYS-Befehl 
oder eine sonstige Ende- 
Kennung fehlt, so ist das 
Ende der Bearbeitung 
daran zu erkennen, daß 
das rote Floppy-Lämp- 
chen zwar weiter brennt, 
die Floppy aber offen- 
sichtlich nichts mehr tut. 
Mit Run/Stop- und Re- 
set-Taste läßt sich über 
den Sprung in den Moni- 
tor das Umschalten auf 
die Tastatur erzwingen. 
Ein CLOSESß sollte am 
Schluß nicht fehlen, 
wenn es vielleicht beim 
Monitorbreak auch un- 
nötig ist. Besser zuviel 
als zuwenig. 

Watson war begeistert 
von den Möglichkeiten 
dieses Verfahrens. Er be- 
nutzt es jetzt, um Pro- 
gramme mit dem Text- 
verarbeitungsprogramm 
SCRIPT/PLUS zu schrei- 
ben, zum Mergen und 
für längere Grafik-Pro- 
gramme, für die norma- 
lerweise der Hauptspei- 
cher des C16 nicht aus- 
reicht. 


ZUSAMMENBINDEN 


VON PROGRAMMEN 


Komfortables Mergen er- 


laubt das Turbo/Plus-Mo- 
dul von Kingsoft. Bishe- 
rige Tips und Tricks in 
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Computerzeitschriften be- 
schrieben nur das Zusam- 
menbinden aufeinander- 
folgender Programmteile. 
Mit der Umwandlungsme- 
thode kann auf einfache 
Weise wie bei Turbo/Plus 
ein Einfügen von Pro- 
grammteilen bewerkstel- 
ligt werden, da das Einbin- 
den der Rechner selbstän- 
dig besorgt. Es muß nur 
vorher ein Programm oder 
Programmteil sequentiell 
gewandelt worden sein. 
Dies geschieht durch: 


OPEN8,8,8,“SEQFILE, 
S.W““.CMD8: LIST: 
PRINT#8“SYS 
65484“: CLOSEB 


Mit dem Listbefehl kön- 
nen auch einzelne Ab- 
schnitte ausgewählt 
werden, zum Beispiel: 
LIST 100-200. 


NEUE PROGRAMMIER- 
MÖGLICHKEITEN 


Eine neue Art der Pro- 
grammierung wird durch 
Direktbefehle vom Da- 
tenträger möglich. Be- 
sonders interessant ist die 
Mischung von BASIC- 
Eingabezeilen und Di- 
rektbefehlen. BASIC-Ein- 
gabezeilen können gele- 
sen und gestartet werden. 
Nach dem Programmende 
eines solchen Teiles kann 
dieses durch Direktbefeh- 
le ganz oder teilweise ge- 
löscht werden. Nach dem 
anschließenden Dazula- 
den neuer Zeilen kön- 
nen Sie abermals starten, 
und so weiter. Lassen Sie 
Ihre Fantasie spielen, 
und Sie werden sicherlich 
eine Menge Anwendungs- 
ınöglichkeiten finden. 
Übrigens beschränkt sich 
diese Methode nicht nur 
auf BASIC-Listings. Sie 
ist auch in Verbindung 
mit dem Maschinenmoni- 
tor anwendbar. Sowohl 
Hexdumps wie Mnemo- 
nics lassen sich in Ob- 
jektcode wandeln. 
Wir verabschieden uns 
jetzt von Watson und 
Holmes und sind gespannt. 
welche Einsichten die 
beiden uns das nächste 
Mal bringen werden. 
am.Jı 


= 


ELSTINGS Er rn 


STÜTZPUNKT-K 


Retten Sie 
Ihre 
Kameraden 


Mit einem Panzerspähwagen müssen Sie feindliche 
Flugzeuge, die es auf den Munitionstransport 
abgesehen haben, abwehren. 


In diesem Spiel müssen Sie einen Militär-Stützpunkt 
bewachen. Ihnen steht ein Panzerspähwagen mit auf- 
gebautem Maschinengewehr zur Verfügung. Nach dem 
Spielstart sehen Sie im unteren Bildschirmbereich 
sechs LKWs, mit Munition beladen. Vor den Bergen, 
in der Mitte, stehen Sie mit dem Panzerspähwagen. 
Gesteuert wird mit Joystick Port 1. Sie werden aufge- 
fordert, zum Spiel den Feuerknopf zu drücken. Der 
Stützpunkt wird jetzt von feindlichen Flugzeugen an- 
gegriffen. Sie können den Panzerspähwagen nach 
rechts oder links steuern. Versuchen Sie, die Flugzeu- 
ge durch Druck auf den Feuerknopf abzuschießen, 
sie haben es nämlich auf die LKWs abgesehen. Drei 
Level müssen überstanden werden. In jedem greifen 
zwölf Flugzeuge an. Ihre Geschwindigkeit steigert 
sich in jedem Level. 

Haben die Flugzeuge alle sechs LKWs abgeschossen, 
ist das Spiel zu Ende. Überstehen Sie alle drei Level 
und ist mindestens noch 1 LKW verschont geblieben, 
wird Ihnen angezeigt, wie viele Flugzeuge Sie vernich- 
tet haben und wie viele LKWs Sie retten konnten. DO 


18 rem stuetzpunkt k ==========616 <en> 
28 rem (p) commodore welt team <ho> 
3Q ram ===ounnnnnnnnnnnnnnneenenne ong> 
48 rem (c) j.kienberger <ai> 
50 rem <pd> 
68 rem <ah> 
78 rem basic v3.5 <nl> 
88 rem c16/116/plus4 <ki> 
98 rem --——unnuunn-nnnnnnnnnnnnnuun Cig> 
188 poke55,255:poke56,47:clr <pe> 
119 trap1628 <da> 
128 rem zeichensätz normal <ai> 


130 key1,"p065298, 198:p065299, 288: 


p065287,8,"+chr$( 13) <no> 
148 gosub1668:colorßd, 1:scnelr <hd> 
158 char, 13,11,wh$+"bitte warten” <fi> 
168 poke65298, peek{ 65298) and251 <fo> 
178 poke65299, peek( 65299) and3or48 <il> 
188 fort=8t017:reada <ie> 
198 poke 1638+t,a:next:sys1638 <id> 
288 fork=12808t013848stepB <pc> 
218 fort=Bto?:reada <bn> 
228 ifa=-1then57® <gi> 
238 pokek+t,a:next:next <mb> 


240 data162,8,189,0,208,157,0,48,1 
89,0,209,157,0,49,202,208,241,96 
258 data@,0,0,0,15,255,34,8 

260 data16,16,254,56,255,255, 254,1 
24 

270 data®,0,0,0,224,254, 136,0 

250 data1,1,33,29,31,27,13,254 

298 data128, 128,132, 184,248,216, 17 
6,127 

300 data254,13,27,31,29,33,1,1 

310 data127,176,216,248, 184, 132,12 
8,128 

328 dataß,0,0,0,0,1,63,127 

330 dataB,30,62,126,194, 130, 130,25 
5 
348 
255 
350 data127,127,96,78,95,95,31,14 
360 data255,255,255, 126, 126,126,0, 
8 
378 
8 
380 data255,255,7,115,251,251,248, 
112 

390 data®,0,0,0,2,6,14,31 

400 data32,46,46,46,36,46, 126,255 
410 datad,8,0,0,64,96,112,248 

428 data63,127,225,221,34,42,34,28 
430 data255,255,255,255,255,255,0, 
(2) 

440 data252,254,135,187,68,84,68,5 
6 

450 data1,3,7,15,31,63, 127,255 

A680 datal28,192,224,240,248,252,25 
4,255 

470 data255,255,255,255,255,255,25 
5,255 

480 datad,0,0,3,3,8,0,15 

490 data24,24,24,255,255,126,255,2 
55 

508 data®,8,0,192,192,0,0,240 

510 data1,127,127,24,24,0,0,8 

520 data255,255,255,51,49,0,0,0 
530 data255,255,255,255,255,255,12 
6,0 

540 data255,255,255,204, 140,0, 
550 data128,254,254,24,24,0,0, 
569 data-1 

578 a$=bk$+chr$( 96) +"AB" :a1$=b3$+b 
3$+b3$:a4$=wh$+"CD”"+b2$+"EF”" 

588 a2$=bk$+b3$+"WXY"+b3$+b2$+c1$+ 
ce1$+c1$+"Z"+ym$+yn$+yo$+ys$ 

598 35$=b3$+b3$+b2$+b3$+b3$ 

688 b1$=b3$+b3$+b3$+b63$+b3$+b2$+c1 
$+01$+c 1$+b3$+b3$+b3$+b3$+63$ 

618 b$=bkK$+"NOP"”+b2$+c1$+1b$+”"QAS” 
628 a6$=ye$+"CD"+b2$+"EF" :n1$=b3$+ 
b4$+b3$+b4$+b3$+b4$+b3$ 


data®,255,255,255,255,255,255, 


data255,255,255,254,254,254,8, 


630 c$=re$+"GH"+bk$+"II"+b2$+c1$+c 
1$+re$+"JK"+bk$+"LM" 

648 e$=b3$+b3$+b3$+b3$+b2$+c1$+c1$ 
+b3$+b3$+b3$+b3$ 

658 z$=gr$+"EF" :n$=wh$+chr$( 46) +b4 
$+chr$( 46) +b4$+chr$( 46) +b4$+chr$( 4 


6) 

660) ran Free 

678 rem -- bildschirmaufbau-- 

6Bü ren mean 

698 scnclr:vol8:color®,2,5:color4, 


18,1:poke65286, 11 

780 char,26,7,wh$+"TU”:char, 38,7," 
TU":char,@8,8,br$+"TU”:char,8,8,"TU 
":char,25,8,"TVVU"” 

718 char,37,8,"TVV”:char,8,9,"VVu” 
:char,7,9,"TVVU":char, 14,9, "TU" 
728 char, 19,9,"TU”":char,24,9,"TVVV 
VU”:char,31,9,"TU":char, 36,9, "TVVV 


738 char,®,18,"VVVU":char,6, 18,"TV 
VVVU”:char, 13, 18,"TVVU":char, 18, 10 
‚TVvvu” 

748 char,23,1@,"TVVVVVVVVVU”:char, 
35,1@,"TVVVV":char,@,11,"VVVVU" 
758 char,5,11,"TVVVVVVVVVVVVVVVVVV 
VVVVVVVVVVVVVVVV" 

768 fort=@t039:char,t,12,"V":next 
778 fort=8t039:char,t,13,"V":next 
788 char ,@,22,z$:char,2,28,z$:char 
‚38,21,z2$:char,36,19,z$ 

798 fort=4to34step3:char,t,18,z$:n 
ext j 

808 fort=3to33step6:char,t,21,c$:n 
ext 

81@ 1=8:char, 17,24,rn$+"level"+rf$ 


+str’ 1) :poke65286,27 

828. ren: >>> --==7=7n 

838 rem -- hauptprogramm -- 

BAG: zen: == 

8508 x=16:y=15:5=2:m=2:u=s2:w=2:z=2: 
v-2 

868 char,x,y,b$:char,5,4,bk$+"zum 


spiel feuerknopf druecken"” 

878 ifjoy( 1) =128then898 

858 gotoB78 

898 tt=160d:aut=6:su=ß:char,5,4," 


":rem 
29 spaces 
988 1=1+1:tr=B 
918 ifl=2thencolor®,9,6:tt=1180 
928 ifl=3thencolor®8,7,6:tt=658 
938 if1>3then1438 
948 ifaut<ithen 1548 
958 k=int(rnd(B) #6) +1:d=tt:tr=tr+i 


968 
028 
978 


onkgoto970,988, 998, 1088, 1910, 1 


k=4:got01838 


<ki> 
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988 kK=19:gato1938 

998 Kk=16:goto1A3B 

1008 kK=22:goto1930 

IBIB K=28:g0t01938 

18208 k=34:gato1038 

1838 kKi=int(rnd(B) #5) +1 

1948 iftr>12then1368 

1058 ti$="BOOBAR" :wait165,64 

1068 char,k,k1,a$ 

10878 char, 22,24,bk$+str$(1) 

1080 d=d-58 

1898 ifd<458thenchar,k,k1,a2$ 

1188 ifd=@thenchar,k+t2,k1+1,wh$+ch 
r$( 42) :goto1258 

1118 ifjoy( 1) =3thengosub 1158 

1128 ifjoy( 1)=7thengosub1188 

1138 ifjoy( 1) =128thengosub 1218 
1148 goto1288 

1158 x=x+6:ifx>34thenx=34 

1168 char,x-6,y,bi$:char,x,y,b$ 
1178 return 

1188 x=x-6:ifx<Athenx=4 

1198 'char,x+6,y,b1$:char,x,y,b$ 
1288 return 

1218 char,x+1,k1,n$ 

1228 ifx+1=k+1then1338 

1238 char,x+1,k1,n1$ 

1248 return 

1258 ifk=4thens=s-t1:ifs<iIthengosub 
1639:goto91® 

1268 ifk=18thenm=m-1:ifm<1ithengosu 
b1638.:g0t0918 

1278 ifk=16thenu=u-1:ifu<ithengosu 
b16390:got0918 


1288 ifk=22thenv=v-1:ifvsithengosu 
b1639:goto918 

1298 ifk=28Bthenw=w-1:ifw<ithengosu 
b1638:g0to918 

1388 ifk=34thenz=z-1:ifz<ithengosu 
b1638:goto91 

1318 char,k,21,a6$:sound3, 988,7:so 
und3,588,7:sound3, 18@8,7:sound1, 158 
4 

’ 

1328 char,k-1,21,e$:aut=aut-1:char 
‚k,k1,b1$:goto918 

133@ char,k+1,k1,a4$:soaund3, 858,6: 
sound3,588,6:sound3,58B,7 

1348 char,x+1,k1,n1$ 

1358 char,k+1,k1,35$:su=su+l:char, 
k,k1,b1$:goto918 

1368 ifaut<1ithen1548 

1378 restore1648 

1388 readi,j 

1398 ifi=-1then1428 

1488 sound1,i,j 

1418 goto1388 

1428 char,k,k1,b1$:goto998 

1438 rem 
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1448 rem -- ende -- <oi> KATER TOM 

1290 Tem Senn <ga> 

1468 restore 1658 <pe> 

1478 reado,p <fe> n mn und 
1488 ifo=-1then 1518 <aa> ; 

1498 sound!,o,p <il> 

1588 goto1478 <1n> 

1518 colori,1:zz=aut:scnelr:char,6 

‚11,"":print"”sie konnten "zz" 1kw erry- OW 
retten” <kk> 


1528 aa=su:char,1,15,"":print"sie 


haben "aa" flugzeuge abgeschossen” <hc> Nicht auf Können, sondern auf Glück kommt 


1538 poke239,8:end <ng> es bei der Mäusejagd an. Zu setzen sind allerdings 
1548 color1,1:fort=989to28step-120 keine Chips wie beim Roulette, sondern Mausefallen. 
:sound2,t,6:next:scnelr <no> Den dritten Level schaffen kann nur der, dem 
1558 char,6,4,"”sie haben keinen Ik Fortuna hold ist und bei dem die Mäuse aus den 
u meh <gb> richtigen Löchern kommen. 
15698 char,7,8B,”neues spiel= joy fe 
ver" <ej> In diesem Spiel muß Kater Tom die Mäuse mit der 
1578 char,7,14,"ende = joystick re Mausefalle fangen. Kater Tom kann mit den Cursor- 
chts" <1k> tasten hoch und runter gesteuert re 
: Drücken der Space-Taste wird eine Mausefalle ge- 
nela Aare Fri es, Ss b1668 “33? setzt. Haben Sie drei Fallen gesetzt, kommen die 
a ifjoyl 1)= BIGAFTEAU Mäuse aus verschiedenen Löchern. 
:g0t0578 <kh> Das Spiel hat drei Level. Jeder Level erstreckt sich 
16088 ifjoy( 1)=3thenpoke239,8:end <oj> auf fünf Runden. Wollen Sie Level 2 erreichen, 
1618 goto1598 <jd> müssen Sie mindestens 80 Punkte schaffen. 
1628 scnelr:poke65298, 199:poke6529 Für jede Maus, die in die Falle läuft, erhalten Sie 
9.28:printch 14 = zehn Punkte. 
a ee r$(14)err$(ler)"error In Level 1 kommen fünf Mäuse aus ihren Löchern. 
in "el:help:end <1m> Bei Level 2 sind es nur noch vier Mäuse und bei 
163@ char,k,k1,b1$:return <fk> Level 3 erscheinen nur noch drei der Nager. 
1648 data834,7,854,7,864,7,881,7,8 Haben Sie Level 2 erreicht, so brauchen Sie minde- 
97,7,91 1 ‚7,897,7,91 1 ‚7,864,7,854,7 stens 160 Punkte, umın Level 3 zu kommen. 
71.00 PORRe Gewonnen ist das Spiel, wenn in Level 3 minde- 
Ras ” stens 240 Punkte erreicht worden sind. 
1650 data834,7,854,7,864,7,864,7,8 Das Spiel erklärt sich weitgehend selbst. 
97,7,881,7,881,7,881,7,897,7,-1,8, Nach der Anleitung und Titelmusik dauert es ei- 
8 <ba> nen Moment, bis der Bildschirm aufgebaut ist. D 
1660 rem nachspann =============== <ag> 
lem pin ee =. 10 rem kater tom===============p4 <jm> 
Bd wh$=chr 05) :c4$=chr 
28 dor it == < 
1598 rn$-chrs(Btß) reß-chräta2e) cak> a ee 
1788 gr$=chr$( 838) :bk$=chr${ 144) <fi> 20 i 
1718 rf$=chr$( 146) :br$=chr$( 149) <mf> en 23 Di ie Kbebbarger nn 
1728 1b$=chr$( 154) :c1$=chr$( 157)  <ej> ee u 
17308 ye$=chr$( 158) :ym$=chr$( 219) <cn> 6 rem base 3.8 == mg» 
de dar Saas er a u ee 88 rem plus4 (016/116 + 64 kb) == <ae> 
1758 ys$=chr$( 255) <pk> 90 rem ====-===-==2=2==20m === m2=m= <km> 
1768 b2$=b2$+c4$+c1$+c1$ <mm> 100 poke55,255:poke56,47:clr <pe> 
1778 b3$=chr${ 32) :b4$=b4$+cA$+c1$ TRpz 110 gosub1718:poke65286, 14 <ep> 
1788 return <id> 120 poke65298, peek( 65298) and251 <pj> 
1790 rem sr===--=-- rn 2=2=2e=e <kl> 130 poke65299,peek( 65299) and3or48 <ao> 
18088 rem 12277 bytes memory <ck> 148 fori=Bto1?:reada <pl> 
1818 rem 95382 bytes program <if> 150 poke819+i,a:next:sys819 <ii> 
1828 rem 80343 bytes variables <ic> 160 fork=12828t012952step8d <pc> 
1838 rem BQB8B bytes arrays <gp> 178 fori=Bto?:reada <bk> 
18408 rem 808518 bytes strings <ba> 180 ifa=-1then4Bdd <ke> 
1858 rem 84896 bytes zeichensatz <oe> 198 pokek+i,a:nexti,k <ke> 
1860 rem 82018 bytes free (®) <og> 200 data162,0,189,0,208,157,0,48, 
1878 Tem === - =, 7222222255 ====== 5 <oc> 89,0,209,157,0,49,202,208,241,96 <kn> 
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KATER TOM 


210 datad,0,0,0,0,8,28,62 

220 data®,0,0,0,0,0,63,255 

230 data0,0,0,0,0,6, 143,255 

248 data0,0,0.0.0.48, 248,248 

258 data103,199,7 2,7,9,9,7 

260 data255,255,255,255,253, 254,25 


4,254 i 

278 data223,185,185,191,198,215,21 
6,239 

280 data252,158,158,254,126,236,28 
‚248 

298 data3,3,1,0,0,0,0,08 
388 data253,251,255,0,0,8, 
3180 data247,251,255,6,0,0, 
320 data240,224,192,192,8 ‚Od 
3380 data®,1,7,28,240,192,255,255 
348 data112,192,0,0,112,112,254,25 
5 

358 dataß,4,15,31,55,127,255,18 
368 dataß,9,248,250,252,248,248,48 
370 dataß,1,7,29,243,199,255,255 
388 data112,192,193,255,126,254,25 
2.255 

390 data-1 

400 a$=0e$+"ABCD"+w$+"ERGH"+w$+"Id 
KL":b$=" "4wß+" "+wß+" ” 
418 c$=wh$+"MN" :d$=wh$+"QR":e$=wh$ 
+"OP":f$=" ":poke65286,27 

420 gosub1360: scnclr:color®d,1,1:p 
oke65286, 11 


2,0 
0,0 
0,0 


430 rem =======---- === === 2200 
448 rem bildschirmaufbau 


468 char,3,1,ye$+"punkte" RT, 
1,ye$+"runde":char,16,1,ye$+"level 
470 x=20:y=3:r=1:p=B:mm=5:1=1:volB8 
480 x=x+1:ifx=38theny=y+t2:x=21 

498 ify>21then528 

508 char,x,y,gr$+"G" 

510 goto48B 

528 x=2:y=3 

538 x=x+t1:ifx>Btheny=yt2:x=3 

548 ify>21then57®8 

558 char,x,y,gr$+"G" 

568 goto538 

578 fort=3t021:char,38,t,gr$+"G":c 
har,2,t,gr$+"G":next:poke65286, 27 

588 char, 32,1,wh$+str$(r) :fort=2to 
21:char, 1ßd,t," ":next:rem 

9 spaces 

598 char, 22,1,wh$+str$(1) 

600 char,b+1,ali),f$:x=12:y=11:e=1 
:char,x,y,a$:char, 15,22,b$ 

618 char,3,a(1),f$:char,3,a(2),f$: 
char,3,a(3) ,f$:char,3,a(4) ,f$:char 
‚3,a(5),f$ 

628 poke1344,64 


<kd> 
<eo> 
<md> 
<df> 
<ei> 


<I?> 
<hi> 


<jd> 
<gb> 
<jb> 
<bj> 
<pp> 
<ll> 


<cm> 
<no> 
<pl> 
<oi> 


<ag> 
<nf> 


<dg> 
<1j> 


<em> 
<kh> 
<lh> 
<ia> 


<ij> 
<ak> 
<pa> 
<nc> 
<al> 
<lf> 
<ec> 
<kg> 
<kg> 
eng? 
<ng> 


<bk> 
<id> 
<pg> 
<dn> 


<dp> 
<fi> 


630 getkeys$ 
648 ifs$=chr$( 32)then:e=e+1:gosub? 


658 ifs$=chr$( 17) thengosub?718 

660 ifs$=chr$( 145) thengosub688 
670 goto632 

680 y=-y-2:ify<3theny=3 

698 char,x,y+3,b$:char,x,y,a$:soun 
d1,380,1 

700 return 

718 y=yt2:ify>19theny=19 

7280 char,x,y-3,b$:char,x,y,a$:soun 
d1,300,1 

738 return 

748 char,x+5,y+1,c$ 

758 ife=2thenx1=x+5:y1=y+1 

768 ife=3thenx2=x+5:y2=y+1 

778 ife=4thenx3=x+5:y3=y+1 

780 ife=3andy2=yithene=e-1:g0t0638 
798 ife=4dandy3=y2ory3=yithene=e-1: 
got0638 

808 ife>3then828 

818 return 

828 char,x,y,b$:char, 15,22,a$ 

830 fori=itomm 

848 a=int(rnd(8)*9) +1 

858 ifa=ithenk=4 

868 ifa=2thenk=6 

878 ifa=3thenk=8 

888 ifa=4thenk=18 

898 ifa-5thenk=12 

900 ifa=6thenk=14 

918 ifa=?7thenk=16 

928 ifa=8thenk=18 

9380 ifa=9thenk=28 

948 forkk=1toi 

958 ifk=alkk)then848 

968 nextkk 

978 ali)=kK:b=35 

988 b=b-1:ifb<3thengoto1048 

998 ifb=xlandali)=yithengosub111B: 


a 
oa0 ifb=x2andali)=y2thengosub111® 


:goto1048 

1818 ifb=x3anda(li)=y3thengosub1118 
:g0t01848 : 

1828 char,b,k,e$:char,b+2,k,f$:sou 
nd1,988,1:fort=1to15:nextt 

10838 goto988 

1048 nexti 

1858 r=r+1:ifr>Sthen1198 

10868 char, 15,22,b$:char,3,k(1) ,f$: 
char,3,k(2),f$:char,3,k(3),f$ 

1878 char,3,k(4),f$:char,3,k(5) ,f$ 
:g0t05808 

1088 rem =====================2=== 

1898 rem maus in der falle 

11088 rem «=== === ================= 


KATER TOM | 


‘118 sound3, 688, 18:sound1,208,5:ch 
ar,b,ali),d$ 

128 fort=1t0988:next 

1130 char, 15,22,b$:char,x+5,k-1,a$ 
1148 fort=1t0o5S@8:next:char,b,k,f$ 
1158 char,x+5,k-1,b$:char, 15,22,3$ 
:a=10 

1168 fort=1toa:p=pt1:sound2, 888,5: 
sound1,288,3:char;,9,1,right$[" "+ 
„h$+str$(p),5) 

1178 nextt 

1188 return 

1198 ifl=1then1308 

1280 ifl=2then131® 

1218 ifl=3then13298 

1228 fort=1t03:sound1,788,18:sound 
2,778,5:next:mm=mm-1:1=1+1:r=1:got 
0582 

1230 fort=758to188step-25:sound1,2 
Bd+t,S:next 

1248 char,3,22,"nochmal (j/n)" 
1258 getkeys$:ifs$="n"thenscncelr:e 
nd 

1260 ifs$="j"thengoto1d8 

1278 1=3:mm=3:fort=1t03:sound1,788 
‚18:sound2,778,5:next:goto588 

1288 fort=1t05:sound1,739,15:sound 
1,818,17:sound1,739,1@:sound1,854, 
1d:next:scnelr 

1290 char, 18,11,'"'g ratulatı 
o n":end 

13088 ifp=>88then1228:else12308 

1318 ifp=>168then1228:else1238 


1328 ifp=>248then1288:else 1238 

1338 rem ==========-.=2=2.2 == ======2=2= 
1348 rem == titelmusik ========== 
1350 rem ======-2.=0222==2=2=2====2===== 


1368 scnclr 
1378 color®,6,1:char, 17,2,a$ 
1388 char, 11,1,wh$+"kater to 


1398 char, 1,5,"sie muessen mit der 
katze 3 mauese-" 

1408 char,1,6,"fallen setzen,die k 

atze koennen sie " 

1418 char, 1,7,"mit den cursor tast 

en rauf und runter" 

1428 char, 1,8,"steuern.haben sie 3 
fallen gesetzt," 

14308 char, 1,9,"so beginnt das spie 
1.5 mauese kommen" 

1448 char, 1,10,"hintereinander aus 
ihren loechern." 

1458 char, 1,11,"laeuft eine maus i 
n die falle,so er-" 

1468 char,1,12,"halten sie 108 pukt 
e.jeder level hat" 
1470 char,1,13,"5 runden. um in le 


vel 2 zu kommen" 

1480 char,i1,14,"muessen sie 88 pun 
kte erreichen." 

1498 char, 1,15,"im level’ 2 kommen 
dann nur noch " " 

1508 char, 1,16,"4 maeuse,und sie b 
rauchen 168 punkte" 

1518 char, 1,17,"um level3 zu errei 

chen.dann kommen" 

1528 char, 1,18,"nur noch 3 maeuse 

aus ihren loechern." 

1538 char,1,19,"haben sie in level 
3 248 punkte er-" 

1548 char, 1,28,"reicht,so haben si 

e gewonnen." 

1558 char, 1,21,"das setzen der fal 
le erfolgt durch " 

1568 char, 1,22,"druecken der space 
taste!!" 

1598 do:vol6 

1588 reads,t 

1598 soundi,s,t 

16088 loopuntils=® x 

1618 data?739,15,810,17,739,10,810, 
15,854,10,854,10,818,20,739, 15,818 
‚190,854, 10 

1628 data834,15,739,15,739,15,739, 
18,798, 18,818,22 

1638 data798,10,810,5,834,15,739,1 

5,739,15,810, 15,834, 12,854,5 

1640 data864, 15,854, 15,834, 15,810, 
15,834,22,739,15,810,19,939,18,818 
‚15,854, 15 

1658 data819,20,739,15,8190,12,854, 
5,834,15;739,15,739, 15,739,18,798, 
10,810,28 

16608 data798,12,810,5,834,20,739,1 

5,881,15,854,20,810,15,854,15,834, 
15,881, 15 

1670 data834, 15,881,15,810,15,818, 
12,854,5,834,20,810,20,739,15,854, 
15,810,28 

1688 datad,® 

1698 char,3,23,fl$+"zum spiel bitt 
e eine taste druecken"+fo$ 

17080 getkeyt$:return 
1718 rem nachspann ============== 
1728 rem * farbcodes/steuercodes* 
1738 wh$=chr$( 095) :.c4$=chr$( 017) 
1740 re$=chr$( 828) :gr$=chr$( 830) 
1758 oe$=chr$( 129) :fl$=chr$( 138) 
1768 fo$=chr$( 132) :bk$=chr$( 144) 
1778 c1$=chr$( 157) 

1788 w$=c4$+c1$+c1$+c1$+c1$ 

1798 return 

1800 end 

1818 rem ende 


<pc> 
<gp? 
<pk> 
<lo> 
<cj? 
<11l> 
<ce> 
<lk> 
<hl> 
<gc> 
<ko> 
<ff> 
<le> 
<ee> 
<pd> 
<jm> 


<oi> 


<jj> 


<cc>? 


<co> 


ZLISTINGS Eee nen 


PYRAMID GUY 


Auf 
Schatzsuche 


Im Innern einer Pyrämide wartet ein Schatz, 
doch auch Gefahr. Der Sprung auf einen Kaktus oder 
das Zusammentreffen mit einem Monster 
kosten ein Leben. 


Mit Joystick oder Tastendruck bewegen Sie sich 
durch die Gewölbe einer Pyramide. In jedem Raum 
müssen Sie sich einen Edelstein beschaffen, damit 

Sie den nächsten Raum betreten dürfen. Gefahr 
droht besonders von einem Monster, das die Gewölbe- 
wände durchdringt und Ihren Weg kreuzt. Da es Sie 
nicht verfolgt, brauchen Sie nur den Zusammenstoß 
vermeiden. Auch dürfen Sie nicht in einen Schacht 
springen, auf dessen Grund sich ein Kaktus befindet. 
Es stehen Ihnen zehn Leben zur Verfügung. Dies ist 
jedoch nicht besonders viel in Anbetracht von 32 
Räumen. Nur nach längerer Übung werden Sie das 
Ziel erreichen. 

Eine Besonderheit finden Sie im Programm ab Zeile 
20000. Dort liegen die Bilddatas für die 32 Räume. 
Da in der Originalfassung reverse und nicht abdruck- 
bare Zeichen vorlagen, mußten wir eine Verschlüsse- 
lung der Daten vornehmen. Eine Wandlung in Strings 
war nicht zulässig, da es sich um Datazeilen handelte. 
Die Decodierung findet bei der Ausgabe durch einen 
verbogenen BSOUT-Vektor statt. 

Die Maschinenroutine können Sie betrachten, wenn 
Sie das Spiel unterbrechen, in den Maschinenmonitor 
gehen und mit D139 auflisten. Ein Return wird von 
der Routine normal ausgegeben. Großbuchstaben von 
A bis P stellen den High-Nibble um, Kleinbuchstaben 
repräsentieren den Low-Nibble des auszugebenden 
Codes. Beispielsweise werden drei Leerzeichen mit 
Caaa ausgedrückt. Dabei wird hexadezimal 20 durch 
Ca repräsentiert. Für die folgenden Leerzeichen ge- 
nügt ein kleines a, da der High-Nibble bereits durch 
das vorangegangene C richtig gesetzt wurde. 

Da die Bilder jeweils aus acht Zeilen bestehen und 
schön hintereinander angeordnet sind, sollte es Ihnen 
nicht schwerfallen, eine eventuell fehlerhaft abgetipp- 
te Datazeile ausfindig zu machen. Im Menü des Pro- 
grammes können Sie sich durch Auswählen des Punk- 
tes zwei, Demo Mode, alle Räume zeigen lassen und 
sich von deren Korrektheit überzeugen. 


LADEANWEISUNG 


Laden Sie den Loader ein und starten ihn. Die ande- 
ren Programmteile werden dann automatisch nachge- 
laden (gilt auch für Datasette). 


SAVEANLEITUNG 


Sie müssen, wenn das Programm auf Kassette abge- 
speichert werden soll, erst den Loader, danach den 
Code und zum Schluß das Hauptprogramm sichern 
(saven). Es brauchen, um es auf Kassette beziehungs- 
weise Diskette zu sichern, keine Programmänderun- 
gen vorgenommen zu werden. Die Programmnamen 
dürfen nicht geändert werden, da die Programmteile 
sich nicht mehr selbständig laden würden. DO 


18 rem guy-loader======-=-=-=======04 <pd> 
28 rem (p) commodore welt team <ho> 
38 rem =========================== ng> 
40 rem (c) by mark luennamann <lh> 
58 rem and michael sperling <mh> 
60 rem <ah> 
78 rem basic 'v3.5 <nl> 
88 rem plus4 (c16/116 + 64 kb) <fd> 
90 rem =========================== (jg> 
180 gosub 239 <aj? 
118 printcl$c4$c4$cA$wh$spel 11) "(ec 
} by m. & m.soft <cd> 
128 printleft$(gd$,5)re$spc( 14) "bi 
tte warten <bk> 
138 color®,1:color4, 1:fora=1t01888 
:next:color1,1 <cc> 
148 char,8,8, "monitor" <gi> 
158 char,8,6,"t dABB dBBB 1IAan" <ml> 
168 char,B,8,"x"” <mg> 
178 char,®@,1@,"poke43,8:poke44,24: 
poke6143,Q:new” <of> 
188 char,®, 13,"1load"+chr$( 34) +"guy 
-code”+chr$( 34) +" ,"”+str$( peek( 174) 
) <mm> 
198 char,ß, 18-(peek( 174)=1),"run” <ao> 
288 poke1319,19 <ol> 
218 fori=1t06:poke1319+i, 13:next <po> 
228 poke239,7:end <nj> 
238 rem nachspann =============== <nl> 
248 rem * farbcodes/steuercodes #* <lo> 
258 wh$=chr$( 885) :c4$=chr$( 017) <oo> 
268 re$=chr$( 828) :c1$=chr$( 147) <co> 
278 rem FRFHRFHRR zeichenfolgen * <ie> 
288 for q=1 to 48 <oc> 
298 qd$=qd$+c4$ <en> 
388 next q <ak> 
318 return <pm> 
328: rem === -----Hmemnma=annnsn 0 <il> 
338 rem programmende sal> 
340 rem ===============2========= <00> 
ne tr ne Me a ee 
18 rem guy-code===========-=-====p4 <fi> 
28 rem (p) commodore welt team <ho> 
30 rem ================2======2=2==== ong> 
AD rem (c) by mark luennemann <pl> 
58 rem and michael sperling <mh> 
69 rem <ah> 
78 rem basic v3.5 <ni> 
88 rem c16/116/plus4 <ki> 
9a rem ====================22=====2= Cjg> 
188 gosub 1148 <dk> 
110 printcl$c4$c4$cA$fl$spc( 9) wh$"” 
ich "re$"poke "cy$"die "gr$"daten 
"HIEzIrT® <ak> 
128 data 69,66, 165, 129, 126,36, 36,1 
82 <gc> 
138 data 69,66, 165,129, 126,36,38,9 
6 <ff> 


108 


Ba 
> 
> 
> 
> 
> 


GUY-— 


data 


data 
data 
data 
data 
data 
data 
212 data 
88 
228 
238 
8 

248 
258 
260 
278 
288 
255 
298 data 
9,255 

388 data 
6 

318 
328 
338 
348 
358 
368 
378 
388 
255 
398 


data 
data 


data 
data 
data 
data 
data 


data 
data 
data 
data 
data 
data 
data 
data 


data 
data 
data 


data 


438 data 
29,255 
449 data 
458 data 
468 data 
478 data 
488 data 
29,255 
498 data 
SaB data 
518 data 
92,192 
528 data 
538 data 
548 data 
558 data 
568 data 
128 

578 data 
48,252 


CODE 


60,66, 141,129, 126,36,36,5 


15,16,35,32,31,9,9,12 
0,128,64,64,128,0,64,0 
9,1,2,2,1,0,0,8 
240,8,52,4,248, 144, 208,24 
3,4,8,8,15,2,3,0 
192,32,208,16,224,64,96,® 
60,66, 177,129,126,36,36, 1 


0,1,2,2,1,8,1,0 
240,8,196,4,248, 144, 144,4 


15,16,44,32,31,9,11,24 
0,128,64,64,128,0,0,8 
3,4,11,8,15,2,6,8 
192,32,16,16,224,64, 192,0 
24,36,90,129,189, 153,129, 


68, 102,255, 129,153, 165,12 
60,66, 189,129, 126,68,66,6 


0,0,68,66, 165,129, 126,36 
38,96,90,0,0,0,0,0 
0,0,0,0,60,66, 165,129 
126,36, 102,0,0,0,0,0 
0,0,0,0,0,0,68,66 

165, 129, 126,36, 100,6,0,0 
0,24,680,102,102,60,24,8 
24,36,90,129,189, 153,129, 


129,66,36,24,24,36,66, 129 
129,66,60,36,36,60,66, 129 
129,126,66,66,66,66, 126, 1 


129, 126,66,90,90,66, 126, 1 
255, 129,189, 165,165, 189, 1 


0,126,66,90,90,66, 126,0 
0,0,8,24,24,0,0,0 
0,0,60,36,36,60,0,0 
0,126,66,66,66,66, 126,8 
255,129,129,129,129,129, 1 


66,98, 126,90,24,24,24,0 
0,0,8,3,12,48, 192,192 
192,204,222,222,204,192,1 


8,123. 7,.1,3,4,1 
1,1,+,1,3,7,31,63 

15,48, 192,@,124, 146, 124,1 
1,3,3,7,13, 128,192, 191 
64,32,31,192, 176,143, 128, 


128,128, 128, 128, 192, 224,2 


<kj> 


 <me> 


<hd> 
<di> 
<ji> 
<jf> 
<eg> 


<jj 


<km> 


<fn> 
<cr> 
<op> 
<on> 
<ma> 


<bc> 
<jo> 


<bc> 
<kk> 
<og> 
<je> 
<kd> 
<nc> 
<ph> 
<jo> 


<je> 
<kc> 
<1l1> 


<fj> 
<dl> 


<im> 
<nh> 
<lo> 
<ai> 
<pb> 


<hi> 
<en> 
<ki> 


<og> 
<pd> 
<kb> 
<hm> 
<1h> 


<ma> 


<kl> 


109 


580 
598 
53 
608 
618 
628 
638 
‚128 
648 data 
53 

658 data 
98 

668 data 
36 

678 data 
65 

688 data 
‚165 

698 data 
‚129 

788 data 
19,126 
718 data 
85 

728 data 
738 data 
02,189 
748 data 


data 
data 


data 
data 
data 
data 


798 data 
888 data 
89,126 
818 data 
‚195 

828 data 
31 
838 data 
55,126 
BAG data 
47,239 
858 data 
82,165 
868 data 
81,255 
878 data 
95,255 
8889 data 
65,255 
898 data 
36 


240,12,3,0,62,73,62,128 
128,192,192,224,176,1,3,2 


2,4,248,3,13,241,1,1 
0,0,0,192,48,12,3,3 
3,51,123,123,51,3,3,3 
12,48, 192,128, 128, 128, 128 
153,980,69,255,255,60,90,1 
90,165,98,189, 189,98, 165, 
219,36,219,36,219,36,219, 
165,90, 165,90,9@, 165,98, 1 
165,98, 189,102, 182,189, 90 
129, 126, 102,90, 90, 102,126 
126,219, 165,219,219, 165,2 
170,85, 178,85, 1780,85, 178, 


36,36,231,24,24,231,36,36 
189, 102,231,129,129,231,1 


126, 153, 153, 255,255, 153, 1 
36,36, 102,255,255, 102,36, 
153, 126,66,66,66,66, 126, 1 
255,231,231,153,153,231,2 
60,36,231,153,153,231,36, 


66,195,60,36,36,60, 195,66 
126, 189,219,231,231,219,1 


195,231, 126, 60,68, 126,231 
231,231,231,0,0,231,231,2 
126,255,231,195,195,231,2 
239,247,255,189,126,255,2 
165, 102, 192,255, 255, 182, 1 
255,181,239,219,189,239, 1 
255,195, 189,165, 165,189, 1 
255, 165,219,255,255,219, 1 


36,68,255,126,126,255,68, 


<ac> 
<bo> 
<oc> 
<gb> 
<bp> 
<gr> 
<oj? 
<hc> 
<ga> 
<In> 
<mb> 
<do> 


<nc> 


<ko> 
<io> 


<eg> 
<lm> 
<oc> 
<ad> 
<dp> 


<nd> 
<cd> 


<bh> 
<bl> 
<ed> 
<na> 


<mp> 


<kk> 
<bp> 
<im> 
<ee> 


<im> 


PYRAMID-GUY 


988 data 195,255, 182,98,98, 182,255 18 rem pyramid-guy==============p4 <nl> 
‚195 <bg> 28 rem (p) commodore welt team <ho> 
918 data 231,152, 165,90,98, 165,152 BE u mn bien ware, Ge 
‚231 <ha> 48 rem (c) by mark luennemann <pl> 
928 data 255, 152, 152,231,231, 152,1 58 rem and michael sperling <mh> 
52,255 <mp> 68 rem <ah> 
930 data 66, 195,36,219,219,36,195, 708 rem basic v3.5 <nl> 
66 2 <oo> 88 rem plus4 (c16/116 + 64kb) <fd> 
948 data 189,98,189,255,255, 189,98 98 rem ======-========-==2=2==2222=0== Cjg> 
‚189 <i1j? 108 gosub 4408 <fg> 
958 data 90,255,102,219,219, 182,25 110 : <bg> 
5,98 j <go> 128 rem ##*## goto menu **F** <ag> 
968 fori=1t053:forj=Bto7 <oe> 138 : <dp> 
978 readz:poke46B8+8*i+j,z:nextj,i <kl> 148 gosub4318:poke 65298, 192:poke 

989 Fori=1t015:forj-dto? <np> 65299, 16 <1j> 
999 readz:poke4352+8*i+j,z:nextj,i <ad> 158 vol 8:for n=688 to 1808 step 1 

1288 for i=1 to 6:for j=-8t07 <kh> [%) <nm> 
1818 readz:poke4996+8*i+j,z:nextj, 1698 sound 1,n,3 <ji> 
i <jn> 178 next n <pn> 
1820 poke 65298, 192:poke 65299,16 <fp> 188 for n=1 to B:key n,"”":next n <co> 
1838 printcl$left$(gd$, 11)wh$spet 1 198 ss=1:c1l=1:goto 2988 <ao> 
5) "your guy <op> 200 poke 65286, peek( 65286) and 239 <jf> 
19848 printc4$re$spc( 17) z6$za$ze$zh 218 color 1,7,4:scncelr:char ‚18,8, 

$ <hl> III" <fn> 
1858 printspc( 17) z7$zb$zf$zi$ <lp> 228 for n=8 to 16 <fo> 
1868 printspe( 17) zB$zc$zg$zj$ <cd> 238 char ‚9,n,")":char ‚38,n,"”)"” <bj> 
1878 printspc( 17) 29$2d4$z9$zd$ <pf> 248 next n:char ,9,17,"))))))))))) 

1888 printbl$zz$ <kc> III"? <pj? 
1898 printhe$bk$"load"chr$( 34) "pyr 250 : <cp> 
amid-guy”+chr$( 34)" ,"peek( 174) <if> 268 goto 2688 <ec> 
1188 char,8,5-(peek( 174)=1),"run" <ce> 278 goto 20978 <gl> 
1118 poke1319, 19:poke1328,13 <ca> 280 : <gm> 
1128 poke1319,19:poke1328, 13 <hd> 298 rem * joystick and keyboard # <ei> 
113@ poke1321,13:poke239,3:end <dk> 388 : <je> 
1148 rem nachspann =============== <hb> 318 goto 1758 <hg> 
11590 rem * farbcodes/steuercodes * <gi> 328 if c1l=8 then 408 <hb> 
1168 wh$=chr$( 885) :c4$=chr$( 817) <1g> 338 if joyl1)=7 then 598 <id> 
1170 he$=chr$( 819) :re$=chr$( 828) <ni> 348 if joyl1)=3 then 748 <jb> 
1188 gr$=chr$( 838) :b1$=chr$( 031) <ag> 3508 if joy(1)=134 then 898 <jk> 
1190 Fl$=chr$( 130) :bk$=chr$( 144)  <ff> 360 if joyl1)=136 then 19088 <od> 
1288 c1$=chr$( 147) :cy$=chr$( 159) <pd> 378 if joy(1)=138 then 1518 <ı1l> 
1218 rem #** zeichensatz/graphik * <mj? 388 if joy( 1)=132 then 1328 <kh> 
1228 z2$=chr$( 163) :z6$=chr$( 167) <ph> 398 goto 478 <dc> 
1238 z7$=chr$( 168) :z8$=chr$( 169) <11> aa get ab z1j> 
1249 z9$=chr$( 178) :za$=chr$( 171) <ok> 418 if a$="0o" then 598 <ml> 
1258 zb$=chr$( 172) :zc$=chr$( 173) <mb> 428 if a$="p" then 748 <1j> 
12608 zd$=chr$( 174) :ze$=chr$( 175) <cj> 430 if a$="z"” then 898 <nh> 
1278 zf$=chr$( 176) :zg$=chr$( 177) <ba> 449 if a$="a" then 1888 <gm> 
12808 zh$=chr$( 178) :zi$=chr$( 179) <om> 458 if a$="s" then 1518 <be> 
1298 zj$=chr$( 188) <ei> 460 if a$="x" then 1328 <om> 
1389 rem #FHr#t#s#r zeichenfolgen * <kk> 470 get u$:if u$=" "” then 2578 <ma> 
1318 for q=1 to. 48 <od> 488 if u$="n" then 2988 <ck> 
1328 qd$=qd$+c4$:z22$=zz$+z2$ <mp> 498 if u$="m” then 2250 <cf> 
1330 next q <dc> Se@ if hh=@ and d=1 then sound 1,9 

1348 return <ba> 99,5:hh=1 <nf> 
1350 rem ========================= (ej> sı8 : <dj> 
1368 rem progroammende <el> 520 rem *#** foot movement *#*# <ej? 
1378 rem ========================= ok? 530 : <gc> 
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548 if s=1 then poke(r-1924) ,74:po 
ke r,65:s=@:sound 1,599,1:goto 175 
d 

558 poke(r-1824) ‚,74:poke r,66:s=1: 
goto 318 

568 

578 rem ###* go left *#### 

580 : 

598 r=r-1 

608 if peek(r)=32 

618 if nit =99 
40 

628 if peek(r)=91 then 2858 

638 if peek(r)<>32 then r=r+1:goto 
318 

648 poke(r+1) ,74:poke (r-1824) ,74 
650 poke r,75:poke(r+1),76 

668 poke r,79:poke(r+1),8® 

678 sound 1,788,3 

658 poke r,77:poke(r+1),78 

698 poke(r+1),32:poke r,74 

788 goto 318 

7180 : 

728 rem ##*# go right **** 

730 : 

748 r=r+1 

758 if peek(r)=32 
768 if peek(r)=90 

98 

770 if peek(r)=91 then 2058 

788 if peek(r)<>32 then r=r-1:goto 
318 

798 poke(r-1),67:poke (r-1824) ,74 
888 poke(r-1),68:poke r,69 

818 poke(r-1),72:poke r,73 

828 sound 1,748,3 

838 poke(r-1),78:poke r,71 

848 poke(r-1),32:poke r,67 


then 648 
then d=1:goto 6 


then 798 
then d=1:goto 7? 


858 goto 318 

B60 : 

878 rem #### jump left:small *#*** 
888 : 

898 if peek(r-41)=98 then d=1:got 
o 928 


988 if peek(r-41)=91 then 2058 
918 if pesk{r-41]2>32 then 1758 
928 r=r-41:poke(r+41) ,32:poke (r-1 
824) ,74:poke r,74 
938 sound 1,748,3 
948 if peek(r-1)=98 
o 978 

958 if peek(r-1)=91 then 2858 
968 if peek{r-1)<>32 then 1758 
978 r=r-1:poke(r+1) ,32:poke (r-182 
4) ‚74:poke r,74 

988 sound 1,888,3 
598 if peek(r+39)=98 
o 1828 


then d=1:got 


then d=1:got 


1888 if peek(r+39)=-91 then 2858 
1818 if peek(r+39)<>32 then 1758 
10828 r=r+39:poke(r-39) ,32:poke (r- 
1824) ,74:poke r,74 

1838 sound 1,989,3 

1848 goto 1758 


1050 : 

1068 rem ***#* jump left :big **** 
1070 : 

1888 if peek{r-48)=98 then d=1:go 
to 1118 

1898 if peek(r-48)=91 then 2058 


1188 if peek(r-40)<>32 then 1758 
1118 r=r-48:poke(r+48) ‚,32:poke (r- 
1924) ,74:poke r,74 

1128 sound 1,748,3 


1138 if peek(r-48)=98 then d=1:go 
to 1168 
4148 if peek(r-48)=91 then 2858 


1158 if peek(r-48)<>32 then 1758 
1168 r=r-48:poke(r+48) ,32: se 1 
924) ‚74:poke r,74 

1178 sound 1 ‚808, 3. 


1188 if peek( r-41)=90 then d=1:go 
to 1218 
1198 if peek(r-41)=91 then 2958 


1200 if peek(r-41)<>32 then 1758 
1218 r=r-41:poke(r+41) ,32:poke(r-1 
824) ,74:poke r,74 

1228 sound 1,988,3 


1238 if peek(r+39)=98 then d=1:go 
to 1268 
1240 if peek(r+39)=91 then 2858 


1258 if peek(r+39)<>32 then 1758 
1268 r=r+39:poke(r-39) ‚,32:poke(r-1 
024) ‚74:poke r,74 

1278 sound 1,1888,3 

1288 goto 1758 

1298 : 


1380 rem **** jump right:small ***# 
# 


1318 : 

1328 if peek(r-39)=98 then d=1:go 
to 1358 

1338 if peek(r-39)=91 then 29058 


1348 if peek(r-39)<>32 then 1758 
1358 r=r-39:poke(r+39) ‚,32:poke(r-1 
024) ‚74:poke r,67 

136@ sound 1,748,3. 


1378 if peek(r+1)=98 then d=1:go 
to 1488 
13808 if peek(r+1)=91 then 2858 


1398 if peek{r+1)<>32. then 1750 
1488 r=r+1:poke(r-1) ,32:poke( r-182 
4) ,74:poke r,67 

1410 sound 1,880,3 
1428 if peek(r+41)=98 
to 1458 


then d=1l:ga 


<bl> 
<kn> 


<pn> 
xgk> 
<bl> 
<hg> 
<je> 
<jo> 


<im> 
<je> 
<pa> 


<hh> 
<fm> 


<ee> 
<cl> 
<pk> 


<11> 
<kg> 


<oc> 
<gb> 
<dd> 


<gf> 
<ki> 


<ie> 
<bc> 
<pj? 


<hf> 
<gk> 
<di> 
<fi> 


<on?> 
<ia> 


<af> 
<oh> 
<he> 


<ep> 
<gl> 


<en?> 
<gp> 


<ba> 


<cg> 
<nd> 


<bb> 
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1438 if peek(r+41)=91 then 20858 <ji> 1988 rem ##*## monster movement #*#* 

1448 if peek{r+41)<>32 then 1758 <kb> s * <ma> 
1458 r=r+41:poke(r-41) ,32:poke(r-1 1910 : <de> 
024) ,74:poke r,67 <dk> 1928 if e=® then 1958 ’ <bo> 
1468 sound 1,989,3 <nj> 1938 e=8:p=3409:t=41 <el> 
1470 goto 1758 <ab> 1948 i=int( rnd( 1)*19) +2 <fn> 
1488 : <nf> 1958 p=pt48 <fk> 
1498 rem **** jump right:big *##* <el> 1968 1=p+i <ct> 
1588 : <pn> 1970 poke( 1-48) ‚t:t=peek(1) <nf> 
1518 if peek(r-48)=98 then d=1:go 1988 poke 1,83 <ji> 
to 1548 <ch> 1998 if t<98 and t>64 then 2259 <np> 
1528 if peek(r-48)-91 then 2058 sli> 2eB08 if p=>3788 then e=1:poke 1,t <pi> 
1530 if peek(r-48)<>32 then 1758 <bi> 2010 if o=1 then o=®:goto 320 <ja> 
1548 r=r-4B:poke(r+48) ‚32:poke(r-1 2828 goto 1778 <ag> 
024) ‚,74:poke r,74 <fj> 2030 : <ct> 
1558 sound 1,748,3 <cp> 2048 rem ***# new picture delivers 

1568 if peek(r-48)=98 then d=1:go re <kf> 
to 1598 <ha> 2858 : <eo> 
1578 if peek{r-48)=91 then 2858 <pl> 2068 if d=@ then 2258:else d=B:e=1 <bb> 
1580 if peek(r-48)<>32 then 1758  <de> 2078 poke 65286, peek(65286) and 23 

1598 r=r-48:poke( r+48) ,32:poke(r-1 9 <ed> 
024) ‚74:poke r,74 <mk> 2088 f=f+188:if f>23128 then 2818 <io> 
1688 sound 1,888,3 <dg> 2898 restore f <ch> 
1618 if peek(r-39)=98 then d=1:ga 2188 gosub4388:for n=1 to 8 <pe> 
to 1648 <nn> 2118 read bb$(n) <ki> 
16208 if peek(r-39)=91 then 20858 <ka> 2128 char, 18,n+8B,"":printbb$(n) <oc> 
1638 if peek(r-39)<>32 then 1758 <nn> 2130 next n:gosub4398 <nh> 
1648 r=r-39:poke{r+39) ,32:poke{r-1 2148 read r:hh=8 <ke> 
024) ‚74:poke r,74 <cd> 2158 for w=5808 to 9088 step 188 <ep> 
1658 if peek(r+41)=98 then d=1:go 2168 sound 1,w,5 <li> 
to 1698 <ha> 2170 next w <gg> 
1668 sound 1,988,3 <ac> 2188 g=g+1:char ‚18,23,"room :"+st 

1678 if peek(r+41)=91 then 2858 <kd> r$(g) <le> 
1688 if peek(r+41)<>32 then 1758 <I1l> 2198 char ‚18,28,"guys :"+str$(m) <nj> 
1698 r=r+41:poke(r-41) ,32:poke(r-1 2288 poke 65286,peek(65286) or 16 <jj> 
024) ‚74:poke r,74 <dn> 2218 goto 318 <fe> 
1788 sound 1,1809,3 <mj?> 2220 : <kd> 
1718 gato 1758 <ch> 2238 rem *### loose life #### <el> 
1728 : <1h> 2240 : <ml> 
1738 rem *##* fall down ###* <ij> 2258 m=m-1 <hi> 
1748 : <np> 2268 sound 1,680,18:sound 2,888,18 <nh> 
1750 ee=d <jm> 2278 sound 1,988, 18:sound 2,6898, 18 <ob> 
1768 if peek(r+48)=32 then 1818 <jn> 2288 sound 1,450,18:sound 2,688,18 <hg> 
1778 if peek(r+48)=98 then d=1:go 2298 for k=92 to 181 <1j> 
to 1818 <ed> 2388 poke r,k <oj> 
1788 if peek(r+48)=91 then 2058 <hh> 2318 for j=1 to 28:next j:next k <oi> 
1798 if peek(r+48)=102 then 2258 <hk> 2320 for k=101 to 98 step-1 <ji> 
1808 if peek(r+48)<>32 then o=1:go 2330 for j=1 to28:next j <eh> 
to 1928 <pf> 2348 poke r,k <hi> 
1818 r=r+48 <in> 2358 next k <cm> 
1828 ee=ee+3B <aa> 2360 sound 1,988, 1@:sound 2,758,18 <pd> 
1838 sound 1,ee+708,3 <eh> 2378 sound 1,1888, 18:sound 2,658, 1 

1848 poke(r-48) ‚65:poke(r-1824) ,74 <fh> 0 <ee> 
1858 poke(r-48) ‚84:poke r,85 <nm> 2388 if m-® then 2738 <In> 
1868 poke(r-48) ‚86:poke r,87 <ca> 2398 char ‚10,20,"guys :"+str$(m) <gb> 
187@ poke(r-48) ‚88:poke r,89 <fa> 2408 : <am> 
1888 poke(r-48) ‚32:poke r,65 <eo> 2418 rem * old picture delivers * <mh> 
1898 : <am> 2A20 : <de> 
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2430 poke 65286, peek( 65286) and 23 2918 print:print ” bitte taste dru 
9 <jh> ecken" <ik> 
2448 restore f:e=1:d=® <nb> 2928 poke 239,@:getkey w$ <jg> 
2450 gosub4388:for n=1 to 8 <pk> 2938 BR 2980 <ep> 
2468 read bb$(n) <ji> 2948 <ej> 
2478 char, 18,n+8,"":printbb$(n) <nf> 2958 if f=23128 then 2988 <kj> 
2488 next n:gosub4398 <hh> 2968 rem *#*#* menu variablen ###* <gl> 
2498 read r:hh=® <fe> 2970 : <if> 
2588 char ,‚18,23,"room :"+str$(g) <ib> 2988 scnclr:aa=8:f=19928:m=9:d=d <in> 
2510 char ‚10,20,"guys :"+str$(m) <he> 2998 poke 65298, 196:poke 65299,288 <pf> 
2520 poke 65286, peek(65286) or 16 <jm> 3aa8 e=1::g=B:hh=® <fg> 
2530 goto 318 <ga> 3u1M : <nf> 
2540 : <ct> 3828 rem ***#* program menu **** <pa> 
2558 rem ####* wait time #### <kf> 3030 : <pn> 
2560: <eo> 3848 color ®,1:color 4,1:colori,2 <jb> 
2578 for y=1 to 48 <gb> 3858 scnelr <nd> 
2580 next y eng> 3068 char ,‚14,1,bl$+"pyramid guy" <cn> 
2598 poke r,65 <fj> 3078 char ‚9,7,ye$+"1 instructions 
2608 for y=1 to 48 <fk> 3 <hi> 
2610 next y <eo> 3888 char,9,9,"2 demo mode"+b3$+"( 
2628 poke r,66 <bh> g=break)" <1b> 
2638 get u$:if u$=chr$( 13) then 31 3098 char,9,11,"3 control"+b5$+"(j 
8 <cn> oystick)"” <ab> 
2640 goto 2578 <ni> 3188 char,9,13,"4 and? +b4$+b3$+" 
2650 : <ac> Con)" <In> 
2668 rem **** graphic on *##* <ha> 3118 char ,‚9,15,"7 goto system (65 
2670 : <ck> 529)" <fk> 
2680 poke 65298, 192:poke 65299,16 <ki> 3128 char ‚9,17,"8 start game" <ee> 
2698 goto 270 <hk> 313@ if cl=8 then char ,‚23,11,"(ke 
2708 : <gh> yboard)"“ <ma> 
2710 rem *###%* guy is died ##** <kh> 3148 if cl=1 then char ,23,11,"”(jo 
2720 : <ip> ystick)" <mh> 
2738 for n=1 to2®8@:next n:scnelr:p 315@ sound 1,890,28:sound 2,1818, 1 
rint ” schade! aber du musst noch v <cg> 
viel ueben " <bg> 3168 if ss=1 then char ,‚23,13,"(on 
2748 poke 65298,196:poke 65299,289 <ki> u <mm> 
2758 print:print:print " bitte tas 3170 If aa=0 then char „23,13, "(of 
te druecken"” <hk> f) <pp? 
2768 poke 239,0:getkey w$ <jn> 3180 : <ck> 
2770 gato 2988 <di> 3190 : <dp> 
2788 : <ah> 3288 rem ###*# menu #### <on> 
2798 rem ** guy found treasure ** <ap> 321b : <gh> 
2BRB : <cp> 3228 get w$ <fm> 
2818 for n=1 to 298:next:scncir <ct> 3238 if w$="1" then 3340 <gb> 
2828 poke 65286,peek( 65286) or 16 <od> 3240 if w$="2" then 3880 <nk> 
2830 poke 65298,196:poke 65299,209 <ck> 3258 if w$="3" then 4140 <cc> 
2848 print:print ie 3268 if w$="4" then 4230 <af> 
2858 print " sie haben guy zu dem 3270 if w$="7" then sys65529 <na> 
schatzgefuehrt":print <oi> 3288 if w$="8" then sound 1,444,5: 
2868 print ” es ist nicht zu glaub goto 200 <ga> 
en aber sie haben":print <pd> 3290 if joyl1)=128 then 200 <ne> 
2878 print ” den fluch des pharao 3308 goto 3180 <jn> 
gebrochen.und"”:print <cm> 3310 : <cp? 
2888 print " das monster war ihnen 3328 rem #*## instructions F##* “mc? 
unterlegen.das":print <oe> 3330 : <fi> 
2898 print ” monster wuenscht eine 3340 senelr:sound 3,990, 10 <1g> 
revange von":print <ke> 33580 print “np? 


2908 print ” ihnen.":print:print N 3368 print re$" guy ist ein wissen 
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schaftler.":print 

337@ print ” er hat die aufgabe in 
einer pyramide":print 

3388 print "” den schatz,dem ein ph 

arao gehoerte,zu":print 

3398 print ” suchen.dabei muss er 

allerlei gefahren":print 

3488 print " ausweichen.der konstr 

ukteur der pyra-":print 

3418 print " mide hat viele geheim 

gaenge,in die”:print 

3428 print ” raeume der pyramide,e 

inbauen lassen.":print 

3430 print ” eine gefahr ist das m 

onster das die":print 

3448 print "” kraft besitzt durch w 

aende und tueren":print 

3450 print "” zu gehen.dieses monst 

er verfolgt den":print 

3468 print ” guy um ihn zu kosten! 
viel spass!!":print 

3478 print " bitte taste druecken" 

3488 getkey w$:sound 3,998, 18 

3498 scncelr 

3588 print 

3518 print cy$” guy besitzt sechs 

arten der fortbe-":print 

35280 print "” wegung.":print 

3538 print ” 1 rechts gehen" 
3548 print ” 2 links gehen” 

3558 print " 3 kleiner sprung 
rechts” 

3568 print " 
rechts" 

3578 print " 
links " 

3588 print " 6 grosser sprung 
links ":print 

3598 print " diese werden durch jo 

ystick oder key-":print 

3686 print " board betaetigt":prin 
t 

3618 print " 1 rechts"b$b3$b3$"ode 

r taste p" 

3628 print " 2 links"b$b4$b3$"oder 
taste 0” 

36380 print " 3 fire und rechts-unt 

en oder taste x” 

3648 print " 4 fire 

n"b2$”"oder taste s"” 

3658 print " 5 fire 

n"b2$"oder taste z" 

3668 print " 6 fire 
"b3$"oder taste a" 

3678 print:print"” bitte taste drue 

cken” 

3658 getkey w$:sound 3,998, 18 

3698 scnclr 


nach 
4 grosser sprung nach 
5 kleiner sprung nach 


nach 


und rechts-obe 
und links-unte 


und links-oben 


<pk> 
<kc> 
<oi> 
<an> 
<ck> 
<cf> 
<jh> 
<pk> 
<le> 
<fp> 
<mp> 
<po> 
<nc> 
<eh> 
<am> 
<mp?> 
<el> 
<if> 
<mj? 
<bc> 
<ij> 
<bo> 
<cc> 
<ag> 
<nc> 
<ia> 
<cd> 
<cj? 
<no> 
<fi> 
<Tk> 
<pc> 


<oe> 
<ni> 
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3788 print 

3718 print pu$"” die taste space fu 
ert in den pause-":print 

3728 print " modus.durch druecken 
von return wird":print 


3738 print " das spiel wieder vort 
gefuehrt.":print 


.3748 print " beim laengeren drueck 


en auf die taste":print 

3758 print " n gelangt man wieder 
in das menu ":print 

3768 print ” mit der taste m werde 
n guy die himmels-":print 

3778 print " tueren geoeffnet.":pr 
int 

3788 print " ohne einen ringdiaman 
ten kommen sie":print 

3798 print ” nicht lebendig aus de 
m raum.":print 

3888 print " m&m soft wuenscht ihn 
en viel spass mit”:print 

3818 print " diesem abenteuerspiel 
.":print 


3828 print * bitte taste druecken" 
3830 getkey w$:sound 3,998, 18 

3848 goto 29BB8 

3850 : 

3868 rem #*** demo mode **#* 

3870 : 

3888 poke 65286,peek(65286) and 23 
9 


3898 g=®:scnclr:char ,‚18,8,b1$+rn$ 
+b$+b$+rf$ 

3988 for n=8B to 16 

3918 char ,‚9,n,rn$+"” "+rf$:char ‚3 
B,n,rn$+" "+rf$ 

3920 next n:char ,‚9,17,rn$+b$+b$+b 
2$+rf$:7f=19928 

3938 poke 65298, 192:poke 65299, 16 
3948 poke 65286,peek(65286) and 23 
9 
3958 
3968 
3978 
3988 
3998 
4988 
4818 
4928 
40938 
4040 
r$(g) 
4958 
4068 
4078 
4888 
aaga 
41808 


f=f+188:restore f 
gosub4388:for n=1 to 8 
read bb$({n) 

char, 18,n+8,"":printbb$(n) 
next n:gosub4398 

read r 

for w=588 to 1888 step 108 
sound 1,w,5 

next w 

g-g+tl:char ‚18,23,"room :"+st 
poke 65286,peek(65286) or 16 
for w=1 to 188 

get w$:if w$="qg” then 2988 
next ’w 

if f=-23128 then 2988 

goto 3948 


<jo> 
<fd> 


<cl> 


<dh> 
<lc> 
<ga> 
<hg> 
<hi> 
<io> 
<ie> 
<jf> 


<hj> 
<le> 
<fm> 
<jb> 
<gm> 
<1j> 
<je> 


<ne> 


<ml> 
<jh> 


<ph> 


<kh> 
<mc> 


<cp> 
<na> 
<1In> 
<jg> 
<cm> 
<il> 
<bp> 
<nj? 
<ib> 
<jb> 


<id> 
<jm> 
<jn> 
<pj? 
<fk> 
zj1> 
<da> 


4110 : 

4128 rem ##** control *FF** 

4130 : 

4148 if cl=1 then cl=A:goto 4188 
4158 cl=1 

4168 char ,23,11,"( joystick)*" 

4178 sound 1,698, 18:goto 3188 

41588 char ,‚23,11,"(keyboard)” 

4198 sound 1,989, 18:goto 3188 

4208 : 

4210 rem #### sound #F##* 

a2en : 

4238 if ss=1 then ss=B:else goto A 
278 

4248 sound 1,988,5:vol 8 

4258 char ‚23, 13,"(off)" 

4260 goto 3188 

4278 ss=1 

42588 sound 1,988,5:vol 8 

4298 char ,‚23,13,"(on) " 

4388 goto 3188 

4318 restore433@:fori=313t0341 
4328 reada:pokei,a:next:restore:re 
turn 

4338 data 2801,813,248,022,201,193 
4348 data 9048,812,056,233, 193,818 
4358 data 819,0180,818,141,856,881 
A360 data 924,9096,056,233,865,813 
4378 data 956,001,076,875,236 

43808 poke312,255:poke884,57:pokeB# 


5,1:return 

4398 poke884,75:pokeBB5,236:return 
4488 rem nachspann =============== 
4418 rem * farbcodes/steuercodes * 
4428 rn$=chr$( 918) :re$=chr$( 828) 
4430 bi$=chr$( 831) :rf$=chr$( 146) 
4448 pu$=chr$( 156) :ye$=chr$( 158) 
4458 cy$=chr$( 159) :b$=chr$( 32) 
4468 b?$=b$+b$:b3$=b2$+b$ 

4478 b4$=b3$+b$:b5$=bA4$+b$ 

4488 b$=b5$+b5$: return 

4490 rem ======================2== 
20008 rem *##* the picture #*#* 
28818 

20828 data"BmKeCaßpNklaaaaaaaaaaaa 
BmKeCaaKee 

28038 data"CaKeelaaaKeeeeeeeelaket 
saaBmN1Bm 

20048 data"CLaaaaaKeelaaaaaaaakelaa 
Kee 
28858 
aa 
29868 
aaa 
29078 
aaa 
2BB58 
Keee 


data"eeebaaKeelaKeeeeeeeelaa 
data"KeeeelaKeelaaaaaaaaakel 
data"KeeelaaaKeeeeelaKeeelaa 


data"KeeelaaaaKeeeelaKeeeela 


<hg> 
<fh> 
<jo> 
<kn> 
<ee> 
<hm> 
<po> 
<bce> 
<oe> 
<ck> 
<aj? 
<fd> 


<de> 
<ge> 
<ci> 
<ct> 
<gi> 
<cn> 
<mi> 
<cc> 
<gk> 


<hp> 
<kk> 
<pb> 
<fe> 
<pi> 
<na> 


<lc> 
<mh> 
<jd> 
<ed> 
<ao> 
<lf> 
<oi? 
<jm> 
<eg> 
<kf> 
<hg> 
<gk> 
<bl> 
<ck> 


<eh> 
<co> 
<op? 
<km> 
<kc> 
<ol> 


<dk> 
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28098 data"eebaalfKkgBmbasaKkesebaaa 
aaaKeee 

2u1a0 data 3482 

2B118 : N 

28128 data”BpNppppplaaaaaNppppppppR 


Da1a0 data”"CaaaNpCaaNpppCaNppCaaNp 
ppCaNpp 

20148 data"ppClaNppCaaaNpCaNpCaaaaß 
pNkBpCaaNpp 

28158 data”CaaaNppppCaNpCaNpCaNpla 
NpCaaaaNp 

20168 data"CaNppCaaaaNpCaaaNpCaaaN 
plaaa 

28178 data”aaaNpCaNpGaaNpppppCaNpt 
aNppCaa 

28188 data"NppCaNpCaNppppBmN1BpCaN 
PPPPpppppLa 

28198 data"”NpCaaaaNppppplaaaaaaaaa 
a 

28200 data 3482 

2B210 : 

20228 data"BoKffffffrBpNkBoKfffrfff 
ffFrfrfBmNlBo 

28230 data”KfffffflaaaKkfffrffffffla 
a 

28248 data"”KfffCaKfflaaakfffffCakf 
frCaa 

202580 data"Kfflaaaaaaaaaaaaaaaaaa 

20268 data"KflaaakffflaKfLaKffflak 
frfffCa 

28270 data"aaaaaKflaaKflaaaaakffff 
fCa 

20288 data”"KffflaaKflaaKfffrrrrrffr 
fCa 

28298 data"aaayJfKgBolaKfCayfKgBola 
KIFFFFFFFFFUFKgBo 

20388 data 3722 

2u310 : 

208328 data"AfNnnnnnnnnnnnnnnnnnnnn 
28338 data”nnnnnnnCaaNnnnnnnnnCaNn 
n 

20348 data”BmNlAfCaaaaNnnnnlaaaaaa 
aaNnCaNn 

28358 data”nCaaaaaaaNnnnnnnnnnnCaa 
28368 data”NnJfKgAfNnCaNnnnnCaaaaa 
aaaaaaa 

20378 data"NnnnGCaaaBpNkAfNnnnnnnnn 
nnnnCa ä 

28388 data"NnnCaaNnnnnlaaaaaaaaaaa 
a 

28398 data"NnnnnnnnnnnnnnnnnnnCaNn 
28408 data 3691 

eB4iß : 

28428 data” JoPppppppppCaPppppppppp 
PP 

28438 data”TaaaPppGaPpGaaafppptarp 
CaPpGaaBmNlJo 


PYRAMID-GUTY | 


<pk> 
<ip> 
<pd> 
<pa> 
<cb> 
<l1> 
<mc> 
<ik> 
<oo> 
<jj> 
<fm> 


<ad> 
<l1k> 


<jp?> 
<fb> 


<jd> 
<bg> 


<fa> 
<fj> 
<hm> 
<ik> 
<li> 
<if> 
<kn> 


<op> 


<ga> 
<eg?> 


<pg> 
<hd> 
<hi> 
<eb> 
<do> 
<em> 


<ck> 


<li> 


« 


FYTRARAMID-GUY 


28448 data”CaaaaaafplafpCaPplarfpla 
PpCaaaPpp 

28458 data"”pCaPpppCaaaPpCtaPfpltafpla 
PpCaPplaaa 

28468 data"PpCaPplaaaafpplaaafptaa 
aPpCarpta 

28478 data"PpCaPpplafplaafplafplaa 
aPpppppta 

28488 data"PpCaPpBpNkJotaaaaaaPppt 
aaPplaaaaa 

20490 data"PpJfKgJofppppJ4fKgJoPppt 
aPpppbaaafppbarfp 

2a5BR data 3482 

2as1 : 

285780 data”) jTaaaaasaaaaaaasaaaaaakK 
b 

28538 data"GaKbGaKkblaakbGaaKkbbaakb 
GCaakbbbLaa 

28548 data"KbbLaKbAfCaKhlpLceJjKbbt 
akbtakbhbbbta 

28558 data”KbbLaKbbAfKimLadJjKbCaa 
KblaaKbbbLCaa 

20568 data"”KbbbbbAfK jnLbeJjKbLakbb 
bCaKbbbCaKb 

28578 data”bbbbbAfKkokoJjKbBpNkJjct 
aKbCaaKbbbLaa 

28588 data"KbbbbbbLaKkbGakbbJfKgJjK 
bbCaKbbbbLa 

28598 data"BmNllaaaaaaaaaaaaaaaaaa 
a 

28688 data 3482 

28618 : 

28628 data” JmlLmmmmlasaaaaaaaaaaaaa 


a 

28638 data”ilmmCaaalmlaalmlalmbaalm 
Caalmlaa 

20648 data"LmCaalmmmmbalmmmCalmbaa 
aalmmla 

28658 data"aalmbaaaaalLmmmmmCaalmta 
almba 

20658 data” alLmmmmmmmmbasalmmbaLlLmmG 
almba 

28678 data"LmCaasaalmtGalmlalmCaalm 
Caalmbalmlba 

20688 data”BmNlJmCalmtalmlaaalmbal 
mmCalmlaaaaaa 

22698 data"”aaaaalmmlaaalmmlaaalfkg 
BpNkJfKglaa 

20708 data 3682 

20718 : 

29726 data"”JpLkkkkklaaaaalkGalkkla 
aaaaa % 

208730 data"aaaalklalkkklaaalkklalk 
klalkla 

28748 data"LkGCalkCalkGaaalklalklaa 
aaaaalkba 

28758 data"aaBpNkulpClalkJfKgy)plLklaa 
alklalkkCalklaalklba 


<kp> 
<l1b> 
<ca> 
<mi> 
<df> 
<bb> 
<mb> 
<bg> 
<fb> 
<ma> 
zop> 
<go> 
<mp> 
<oa> 
<bg> 
<if> 
<em> 
<np> 
<bi> 
<pi> 
<mi> 
<hh> 
<mc> 
<mp> 
<nf> 
<oo> 
<lo> 
<kg> 
<1p> 
<pk> 


<fj> 


<jp> 
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28768 data”aalklaaaaayfKgla)piklaa 
aaaalkklba 

20778 data”LkGalLkkkkkkkkkkkkkklfKg 
JpLkkla 

28788 data"lklalkkkkkkkkkkkkkkkkkl 


a R 
20798 data”LkJfKgEmNllaasaaaasaaaa 
aaaaa 
29808 
22818 
29828 
fCalff 
20838 data”ffflalfCaaalfCaalflaaal 
FfCalff 

20848 data”CaaalflaalflasaaaalfCaa 
aaaa 

20858 data”Lffrrrrrrtrlalffffrrfrfca 
Lf 

2AB6B data”fflaßpNkEmlflasaalflasa 
aaaaaalf 

28878 data"”flaalfflalfCaalfCalfCal 
flaLffCaalf 

28888 data”flaLffflalfflalfCalfbal 
flaLffCalfba 

28898 data”LfCaaaaalfflaaalflalfCa 
LffGalfCa 

20988 data 3725 

2a918 : 

28928 data"”Iblaaaalgglaaaalgglaaaa 
LeCbaalg 

20938 data”Calgglaaaalgglaaaalggla 
aaaa 
29948 
Lg 
28958 
aasaa 
20968 
88 
20978 
28988 
Lg 
28998 data"BmNllCaaaaaaaaaaaayfKgyf 
Kglaaaaa 

21088 data 3482 

21818 : 

21028 data"JfKglasaaaaaaaaaaaaaaaa 
a 

21838 data"BmN1JfLhGaaalhhhhhhhhhh 
hhhhla 

21840 data"”LhhhhheBpNkJ)fCaaalhlaaaa 
aaaaaa 

219858 data"LhCaaalhhhhlalhlalhhhht 
aasaaa 

21868 data”aalhlaaaaalhhlalhlaaaal 
hhhh 

21878 data"Calhhtalhtaalhhhlalhbal 
hbaaaalhh 

21888 data"CalhGaalhhhlaaayfKgyfLh 


data 3484 


data”BmN1BmGaaalLffffrrtrrtff 


data"lggggggerggglalgggeggla 


data”CaaaaaaaaaaaaaaaBpNkIbt 


data”lgglalggeggggggglaalggg 


data"laaaasasasaaaaaaaaaaa 
data"lgggggegggegeglaalgggla 


<mb> 
<pa> 
<na> 
<co> 
<hj> 
<hb> 
<bc> 
<ac> 
<cg> 
<gd> 
<pi> 
< jm> 
<ko> 
<eh> 
<00> 
<dj> 
<hd> 
<kl> 
<dh> 
<np> 


<mo> 
<hd> 


<mf> 
<bce> 
<ho> 
<ac> 
<pm> 
<bg> 
<kn> 
<og> 
<ip> 


<mp?> 


Calhhhlaaalh 

21990 data"Calhlaasaaaaaasaasalhhhhba 
aLh 

21198 data 3722 

21118 : 

21128 data”Joll1l1l1lCaaaaaaalllCaaaaa 
aaa 

21138 data”"alL111Cali1l1CallCallCali 
BpNkJollCaallla 

21148 data”all11CaaallCallCasalllC 
alitalldfKgl)o 

21158 data”GaaLllCallCallCaLlGallt 
aaaaaalL1BmNlJo 

21168 data”LiCalLl1lGallCallCaaal)fKg 
JalllaallLasayJfKgJo 

21170 data"”Caaaaalllalllalllaaallt 
aallballl 

21188 data”111111CaaallCallllCalll 
Caall 
=119A-data"l11111111GallCasaasaaaal 
1 3 
21288 
21218 : 
21228 data”BplLjjlaaal jjlaaal jCaljj 
Caaaljjj 

21238 data” jjCal jbaal jCal jCaaaaljt 
al jCaaalj 

21248 data” jlaaljjlaljlaljjjjtaljt 
al jCal jbalj 

21258 data”Cal jCal jbaaal jjbaaaaaal 
jCaaayfKgBp 

21268 data”LjjjtCaaljjtaaal jCaal jba 
aaal jBmN1Bp 

21278 data"Caaaaal jCaljjCaljjbaljt 
al jjjjg 

21288 data” jjtaljlal jbaljjyrKgBpLlj 
jCaL jCaljjBpNkBpLjj 

21298 data” jjCal jCaaaljjjjjjjtaaaa 
Ljj 

21308 data 3562 

21318; 


data 3442 


i 

21348 data"”Calilasaasaliilaaaaaaaa 
aa 

21358 data”aLiiibaliilaaliilaaalit 
aaalilba 

21368 data”asaaalilaaaaliiltaliiiit 
aLiba 

21378 data"”lLiCalilasaaaaaaaalibaali 
ibalila 

213898 data”LiGaliGalilaliibaliibal 
iilCaLiiiila 

21399 data"LiBpNkJgLiGaliGaliidJfKg 


21480 data 3442 


<eh> 
<cc> 
<am> 
<ml> 
<hd> 
<gb> 
<ia> 
<ja> 
<dce> 
<mf> 
<cf> 
<ol> 
<ib> 
<je> 
<lh> 
<hj> 
<op> 
<ka> 
<ob> 
<pc> 
<lo> 
<pc> 
<de> 
<fn> 
<aj? 
<mc> 


<nf> 


<ii> 


<ai> 
<ha> 
<ij> 


<hg> 
<kg> 
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21418 

21428 data"BmNlJhCaaNnnnnnnGaNnGaN 
nCaaaaNnCaa 

21438 data"NnnlaasasNnnCaNnlasaNnn 
CaNnCaNn j 

21440 data"nCaNnnnnnnnbaNnCaaNnnne 
aaaa 


21458 data"NnCaaNnCaaaNnnCaNnCaaaa 
NnGCaaNnn 

21468 data"nCaaNnGaaaaaaNnnCaNnCaN 
nnCaaa 

21478 data"NnnCaNnCaNnnGaNnnnnCaNn 
CaaaNnnCa 

21480 data"”NnnCaNnCaaNnGCaNnCaaaaNn 
CaNnLaaNnCa 

21498 data"NnnCaaaaNnCaaaNnnnnnnnEt 
aBpNk 

21588 data 3461 

21518 : ® 
21528 data"BmNlJjlaasaNppppppplaaa 
aNpppp 

21538 data"pCaNppCaNpCaNpppCaNpCaN 
ppCaNpCaNpGa : 

21548 data"aNpppCaNpCaaaaaNplaaaaN 
plasa 

21558 data"”NpCaaNpCaaaNpCaNpCaNpCa 
NppCaNpGaNpGa 

21568 data"aNpppppppCaNpGaNpCaaNpt 
aNpCGaNpLa 

21578 data"”aNplaaasaaaNpCaaaNpplaa 
aNpCa 

21588 data"aNpppppppppppppppppplLa 
21598 data"NplaaaaaadpNklaaaaaaaaa 
aaa 
21688 
21618 
21628 
a 
21638 data”aaKaaalaaaaaakKaaaabakaa 
CaKa 

21648 data”TaKalaaaaKaalaKaalaKaaa 
CaaKalaa 

21658 data"”aKaaaslaaaaaaKalaKaalaa 
aKaba 

21668 data”aKaaBmN1J1KaalaKalaaasa 
KaalbaKabaaa 

21678 data”aKaalaaKalaKaalaKalaaaK 
abaaKabaka 

21688 data”CaKaaabaKalaKaalaaaKala 
KaabaKabaa 

21698 data"aaaaaKalfKgylKaayfKgyit 
aKaabaaaaKasBpNk 

21788 data 3461 

21718 : 

21720 data”JmCbaaaaaaaaaaaaasaaaad 
pPNk 

21738 data" JmCabbbbbbbbbbbbabaaaba 
21749 data"babbbbhbbbhbbabbbbba 


data 3644 


data”JlKaaaaaaaaaaaasaalaaaa 


FYAAMID-GUY 


<ct> 
<co> 
<oi> 
<mk> 
<fa> 
<cb> 
<gc> 
<jg> 
<he> 
<bf> 
<oo> 
<bo> 
<1f> 
<om> 
<db> 
<co> 


<fc> 
<fg> 


<ho> 
<nf> 
<]h> 
<bi> 
<df> 
<cl> 
<kd> 
<gi> 
<bk> 
<da> 
<ji> 
xeb> 
<ho> 
<dg> 


<po> 
<jj? 


| PYRAMID-GUY 


21758 data"abbaaaaaaaaabaaabbba 
21768 data”"bababababbbaabbaaaba 
21778 data”bababbbbbbbaaabababa 
21788 data"aabaaaaaaaaabaaababa 
21798 data"abbBmNlJmCbabababababab 
aaa 

21888 data 3722 

21810 : 

218789 data"Afbaaadddddddaddddaaaaa 
21838 data"adaadadaadaadBmN1lAfCdad 
dda 

21848 data"aadaadaaaaaadanaadad 
21858 data”aaadaddadddadddadaad 
21868 data"dadaaadaaaaadaaaddaa 
21878 data"dadadddadadadadadada 
218898 data"aadadadadadadadddaaa 
21898 data"adBpNkAfGaaaaadJfKgAftd 
aaadddaaa 

21988 data 3722 

21918 : 

21928 data" JklaEbbbblasaaaaakEbblase 
bCaEbbb 

21938 data"CaaaaaakbbbCaaEbbGaakbt 
aEbCaEb 

21948 data"CaEbbbbblaaaakbbblaaaaa 
aEb 

21958 data”CaEbbbbLaaEbLaaEbbbLakb 
bbCaaa 

21968 data"aEbbbbJfKgykCakblaaaakb 
CaEblCaaaaEb 

21978 data"CaEbbbbLGaEbbbbbCaEblakb 
GaEbbCaEb 

21988 data"CaEbbbbGaaEbbBpNkJkEbCa 
EbCaEbCaaEbCaEb 

21998 data"Caaaaaaaaaakblaaaaaakbt 
aBmN1JKk 

22808 data 3748 

22B18 : 

22928 data"JhbaaaaakcccceccccecbaEcc 
ccBpNkJh 

22038 data"CakEclaaaakclasakclaaaaa 
EccCaa 

22048 data"aEcclaEcbaEcbabcbakcbae 
cebaEccecCaEc 

22858 data"CaEcclaEclaaakcbakclakc 
CaEcccecbaEc 

22868 data"ClaEclaakeclaaaaaaaaaaak 
cCaa 

22978 data"aEclakcclakcbakccbakcce 
aEclaaEcclCa 

22888 data"aEcbaEclaaaaaaaakcbakct 
aaakcla 

22898 data"BmNlCayJfKg)hEcbakceeccecce 
CaEcbaEclaEcbaaa 

22188 data 3685 

22110 : 

22128 data"Bmlaaasasaaaaaaaakddddd 
d 


<nj? 
<ee> 
<bj? 
<oh> 


<in> 
<nm> 
<ej? 
<ck> 


<of> 
<ip> 
<jo> 
<cc> 
<le> 
<ni> 


<el> 
<hb> 
zbh> 


<ad> 


<cp? 


<pp?> 


<mm?> 
<mf> 
<mf> 
<ig> 
<jd> 
<np> 
<ni> 
<gb> 
<ip> 
<ni> 
<1m> 
<gf> 
<mp> 
<1l> 
<gl> 
<jd> 
<kd> 


<ih> 


22138 data"GaEdLasEdGaEdBpNkBmEddd 
GaaaEdddddd 

22149 data"”CaEdlakddlaEdddddddCaaa 
aEdlaEd i 

22158 data"”CaEdlaakdlakdlakdddlaaa 


EddlaaaEd _ 
22168 data”CaEddCaEdlaEdlaEdddCakd 


. CaaaaEdlaa 


22178 data"aEddCaaakbdlakdddGaEdGae 
ddtaEddCa 

22188 data”aEddddddddddGaEdlakdddG 
aaa 

22198 data”aaaaaaaaaBmNlCaJfKgBmEd 
JfKgBmEdddddba 

22288 data 3741 

22218 : 

22228 data” JjEelaaasasaaaaaaaaaaaa 
a 

22238 data"EelaEeeeeeeeeeeeeeeeeeb 
a 

22248 data"”akeeeeeeelaaaakeelaaaak 
elta 

22258 data”"EeCabeBmNlJjlaaakelaake 
Caakelaaakbeeba 

22268 data"EebaEbeeeelaaakebaacbeelba 
Eetakeeba 

222789 data"aabeelaaakbeeeelbaaaakbelba 
akbela 

22288 data”akbeeeeeeeeeelakbeeeeebaE 
eba 

22298 data”aaaaaaaaaakelaaaaßpNkJj 
Eelaaa 

22308 data 3731 

22318 : 

22329 data”JkErfFFrFFFrFrFFtflaaaaaakft 
aEfba 

22338 data”BmNlJklaaEfflaaabffCacf 
CaEffCaEfCaEfla 

22348 data"EflaEfflaaaasaEflacflaaa 
aaaaa 

22358 data"EflaEfflaEffflacbflaefff 
CaEfCaEfCaEf 

22360 data”flaaEflaEflaaakbflaaaaae 


‚ FCaEftaEf 


22378 data”ffGaEflaEfbaEfbaaaefffG 
aEflaaaa 

22388 data"EfflaEfGaEfbaEffflaaefG 
aacffffla 

22390 data"”Eflaaaskflaaasaaaaaacefff 
fBpNk 

22408 data 3579 

22418 : 

22428 data”Bolaaakgglakggggglaaakg 
BmNiBobaEgbakg 

22438 data”"CaEgBpNkBolakglasaakggt 
akEglaEgglaaaa 

72448 data"akglakggtakgbaaakgbaalf 
KgBoEgggggla 


PYRAMID-GUVY 
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22458 data"aEgglaEglaaakglakgglakg 22848 data”ammmaaaaaaaaaaaaadpNkll 

glaEglbaaa <lg> Caa <he> 
22460 data"akgglakggglakglaaaakgla 22858 data” ammmammmmmmmmmmaannm <oi> 
aaaakg <gb> 22868 data”mamaaasasaaaaamm)JfKgla) 

22470 data"CaEgglaaaaakgggggglakgl lCaa <he> 
aEglaEg <im> 22878 data"ammmmamamamamaaaaama <gf> 
22488 data"CakggggggglaaasaaakglaE 22888 data” ammmmmmmmmmmmmmmmmma <ig> 
glaEg <il> 22898 data"aBmNllaaaaaaaaaaaaaaaaa 

22498 data"Caaaaaaaaakggggggggggg <hi> a <fh> 
22508 data 3494 <ki> 22988 data 3722 <ok> 
22518 : <me> 22918 : <oj> 
22528 data” JoGaaaasaalpppppppCalpp i 22928 data" JiCnnaaBpNklaaaaaasaaaa 

PPP <ji> aaaa <al> 
22538 data”CalppppplCaaalpplaaalpla 22930 data” JiCnnaaaaaanannannannaa <gk> 
LPPPP <pc> 22948 data"aaanannannnnnanaanan <gh> 
22548 data”CaBmNlJolaaalpppCalppla 2295@ data"annnaannnBmNlJiCnnnanna 

alpplaalpGalp <gi> naa <oe> 
22558 data”CalpCGaalpCaalpCalpplalp 22968 data"annnanaaaannnaaaanaa <ai> 
BpNkJoLpCaaalpla <ok> 22978 data”aannanaannnnnnnnnnna <am> 
27568 data"alplalpbasalplaalptalpt 22988 data"aanaannannanaanaaana <mf> 
alppCalpCaa <af> 22998 data”naannannannannaanaaa <kp> 
22578 data”alpCaaaaalpplalplalplaa 238088 data 3733 <gk> 
ayfKglalJolaa <oe> 238010 : j <la> 
22588 data”alplaalppJfKggJolplalpt 23028 data” Jflaaaaaaaaoooooaaaaacno <lj> 
alLppppCalpCalp <dd> 23838 data”aoooBpNkJfCooaooaaaaaaa 

22598 data”CaaalpppJfKggJolplaaaaa 030 <ik> 
aalpppla <gh> 23948 data"aoaBmNl,JfCoaoaaaanaacao 

22608 data 3741 <fm> 00a <1j> 
22618 : <ip> 23858 data”anoaoanooooooooaconoa <dg> 
22628 data”BmNlJfCakasaaaakkkaaaaa 23068 data"aooaoaaaaaaanooaooaa <pg> 
aka <ea> 23078 data”"aooa0000000083a00040 <oo> 
22638 data”aakakkkkkakkakakkaka <ni> 23089 data"”aooaoooooaananovaanan <hk> 
22648 data”kaaaaakaakkaakkakaka <ee> 23098 data”"aaa09333400030000a30 <ei> 
22650 data”kakkakakaakakkkakJfKgdyf 23188 data 3621 <bc> 
Cka <mj> 23110 : <hl> 
22668 data"”aaakakaaaakaakaaaaka <hg> 23128 data"BmCaaapaaBpNkBmCaaaapaa 

22678 data”kkakJfKg)Jflaakkakaakakk aaaapp <pi> 
aaa <dk> 23138 data"apapapppppapappppapp <jp> 
22680 data"BpNkJfCkakkkaakaakakaka 231408 data”apapapaaspapaaaappap <aa> 
aaa <ck> 2315® data"apaaapapapaaappaapap <do> 
22690 data"aaaakkkakayfKglaal)flkak 23168 data”BmN1BmCpapapapapppaappa 

aaka <op> paa <le> 
22788 data 3581 <li> 23178 data"”apppppapappppaapappa <bc> 
22718 : <fg> 23188 data"apapppappappppapapaa <lm> 
22720 data"Caaaaaaaaaaaaaaaaaaaa <db> 23198 data"pasaaaapppaaaaappaap <ge> 
22738 data"IbCalllllllallllllaalaa <ph> 23288 data 3781 <if> 
22748 data"alllllllalaaaaalBpNkIbt 23210 : <ec> 
lal <fk> 23228 rem ==>===>=================22 00g> 
22758 data"allllaaaalalllalllal <bh> 232308 rem 60671 bytes memory <1j> 
22768 data"allllllllaaaalaaaaaa <oe> 23248 rem 28205 bytes program <ap> 
22778 data"aaaaBmNlCalbLaaaalaaala 23258 rem 88252 bytes variables <le> 
lala <ao> 23268 rem BBB49 bytes arrays <hg> 
22788 data"allllallaalalaaalala <ch> 23278 rem 80658 bytes strings <on> 
22790 data"aaaalllllalaaalllallfkg <ge> 23268 rem 02848 bytes zeichensatz <ba> 
22588 data 3567 <gf> 23298 rem 37476 bytes free (®) <nb> 
22818 : <ca> 23388 rem achtung !!! <fd> 
22828 data” JlCmaaaaaaaaaaaaaasaaaa <nn> 23318 rem datas ab zeile 28089 <dh> 
22830 data” ammmmmmmmmmmmmmaamma <bb> 23328 rem nicht umnummerieren. <pm> 
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DISKSORTER PLUS 


Disk- 
Jockey 


Um eine Liste der Programme auf 
Ihren Disketten zu bekommen, brauchen Sie die 
Programmnamen nicht extra abzuschreiben, sondern 
nur zu übernehmen. Disksorter sorgt für Arbeits- 
erleichterung und auf Wunsch auch für 
eine alphabetische Sortierung. 


Das Programm Disksorter ist für den C16/116/Plus/4 
geschrieben worden und dient zum Verwalten einer 
Liste aller Programme. Nach dem Laden und Starten 
mit RUN kann der Benutzer zwischen den zehn 
Menüpunkten 0 bis 9 wählen. Die Anwahl geschieht 
über die Cursor-hoch(-runter)-Taste und die Return- 
Taste. Es folgt eine Beschreibung, die jeden Menü- 
punkt genau erklärt, so daß es auch einem Anfänger 
gelingen wird, seine Programmnamen zu verwalten. 


Punkt 0: 

Mit Hilfe dieses Punktes können Sie die Programm- 
namen direkt aus dem Directory lesen. Nach der An- 
wahl werden Sie gebeten, die richtige Diskette ins 
Laufwerk zu legen und Return zu betätigen. Danach 
erscheinen in der unteren Bildschirmhälfte die Na- 
men, Drücken Sie die Taste SPACE, so übernehmen 
Sie den Namen in Ihre Liste. Wenn Sie dies nicht 
wünschen, betätigen Sie die DEL-Taste. Eine beson- 
dere Funktion hat die ESC-Taste. Mit ihrer Hilfe wer- 
den Programme dem vorherigen zugeordnet, das 
heißt, die Blöcke aller zusammengehörigen Program- 
me werden addiert und unter dem Namen des ersten 
ausgegeben. 


Punkt 1: 
Hier wird Ihre Liste auf dem Bildschirm dargestellt. 
Stoppt die Anzeige, so drücken Sie eine Taste. 


Punkt 2: 

Nach der Anwahl dieses Punktes wird Ihre Liste in 
alphabetischer Reihenfolge sortiert. Haben Sie etwas 
Geduld, es kann bei langen Listen eine Weile dauern. 


Punkt 3: 

Hier wird Ihnen die Möglichkeit geboten, Ihre Liste 
von Fehlern zu befreien. Mit den Cursor-Tasten 
(links/rechts) können Sie das gesuchte Element an- 
wählen und mit SPACE verändern. 

Mit DEL löschen Sie das Element aus der Liste und 
mit INST können Sie ein neues einfügen. Mit ESC ge- 
langen Sie ins Hauptmenü. 


Punkt 4: 

Hier läßt sich eine vorher abgespeicherte Liste wieder 
in den Speicher laden und verarbeiten. Geben Sie den 
Listennamen an und drücken Sie die Return-Taste. 


Punkt 5: 

Haben Sie eine Liste erstellt, so können Sie sie auf 
Diskette abspeichern. Geben Sie den Namen ein, un- 
ter dem sie abgespeichert werden soll. Existiert dieser 


Bitte lesen Sie weiter auf Seite 122 


TE nn nn 


120 


disksorter-plus=========c16 
(p) commodore welt team 


(c) by bjoern schneider 


basic v3.5 
c16/116/plus4 


rem 
100 gosub 1578 

118 color®ß,1:color4,1:color1,16,4: 
scnelr 

1208 dimd$( 588) :trap 1458 

138 gosub1558:printcl$c4$"disksort 
er-plus":fori=1t015:printzm$; :next 
140 ifz=dthenu=ß:elseu=z+1 

158 char,20,1,"("+str$(u)+" elemen 


te )"+chr$( 13) 
168 printc4$c4$rn$" ® "rf$" neue 
daten einlesen":printc4$" 1 date 


n auf bildschirm" 


170 printc4$" 2 daten sortieren" 


:printc4$" 3 daten editieren" 
188 printc4$" 4 laden von daten" 
:printc4$" 5 speichern von daten 


198 printc4$" 6 
iste":printc4$" 7 
2088 printc4$" 8 
rgaenzen" 

218 printc4$" 9 datei loeschen"!: 
p=8:gosub1568:ifz<dthenz=® 


ausdrucken der | 
directory" 
liste von hand e 


2208 getkeya$:ifa$=chr$( 13) then278 
238 char,8,p*2+4,str$(p)+" " 

248 ifa$=cA$thenp=p+1:ifp=1Bdthenp= 
() 

258 ifa$=c2$thenp=p-1:ifp=-ithenp= 
9 


268 char,®,p*2+4,rn$+str$(p)+" "+r 
f$:goto220 

278 onp+t1g0oto290,598,698,798, 1010, 
1058, 1118, 1290, 1338, 1318 

288 rem *** neue datei einlesen ** 


® 


298 printcl$c4$c4$"richtige disket 
te einlegen "rn$"<return?"rf$ 
300 getkeya$:ifa$<>chr$( 13) then130 
318 printcl$c4$"bitte waehlen sie 


. ’ 
328 fori=1to19:printz2$; :next:prin 
t 


338 printc4$c4$c04$" space’ 
nt uebernehmen" 
348 printc4$"’del’ 
ht nehmen" 

358 printc4$"’esc’ 
zum letzten" 

368 printc4$c4$" 


sleme 
element nic 
zugehoerig 


name 


<gl> 
<ho> 
<ng> 
<ml> 
<pd> 
<od> 
<ja> 
<ak> 
<jg> 
<fa> 


<np> 
<cg> 


<jf> 
<cl> 


<ol> 


<jk> 


<mf> 


<pp> 
<eo> 
<ch> 
<ep> 
<pj? 
<he> 
<if> 
<co> 
<bj> 
<cc> 
<pg> 


<ai> 
<nb> 


<pa> 
<dl> 
<ma> 
<pc> 


<fi> 


DISKSORTER-PLUS | 


id blk' nehmen?" 

37® fori=1to48:printzv$; :next:prin 
tchr$( 27) +"t" 

388 printcl$;:ifz>@thenz=z+1 

398 rem directory lesen 
400 open15,8,15,"i®":open5,8,5,"#" 
:gosub658:print#15,"ul 5 DO 18 8" 
418 print#15,"b-p 5 162":get#5,a$: 
get#5,b$:id$=a$+b$:t=18:5=1:fl=d 
428 print#15,"u1";5;0;t;s:get#5,a$ 
:t=asc(a$) :get#5,a$:s=asc( a$) 
438 fori=®to?:an=32*i+2:printf#15," 
b-p";5;an 
440 a$="":foru=2to31:get#5,3$:ifaß 
=""thena$=chr$(®) 
450 q$=q$+a$:next:ifasc( g$) =Dthen5 
38 
460 lo=asc(right$(q$,2)) :hi=asc(ri 
ght$(q$,1)):bl=lo+thi*256:x=bl:gosu 
b668 
470 x$=mid$(qg$,4,16)+" "+id$+" "+x 
$ 
488 print" "x$" "; 
490 getkeya$:ifa$<>" "anda$<>chr$( 
27) anda$<>chr$( 28) then498 
508 ifa$=chr$( 28) thenfl=8:printrn$ 
"nein"rf$:goto53®8 
518 ifa$=chr$( 27) then558 
528 d$(z)=x$:z=z+1:m=z-1:fl=1:prin 
trn$" ja"rfg" R 
5380 nexti:ift>@dthen428 
548 close5:close15:printhe$he$:z=z 
-1:g0t0138 
550 iffl=Bthen49B:elseprintrn$"*"" 
rf$ 
568 b=vallright$( d$(m) ,3)) :b=b+val 
(right$(x$,3)) :x=b:gosub660 
578 d$(m)=1left$(d$(lm) ‚len( d$(m))-3 
) +x$:g0t0530 
580 rem *** daten ausgeben *** 
598 printcl$;:t=® 
600 i=-® 
618 printd$(t) :iei+i:t=t+1:ift-i=z 
then648 
620 ifi=23thengetkeya$:goto680d 
638 goto61d 
648 printc4$rn$"ende der liste"rf$ 
:getkeya$:goto13B 
658 ifds=dthenreturn:elsestop 
660 x$=str$(x):x$=right$(lx$,1len{x$ 
)-i1):iflen(x$)>=Ithenreturn 
678 Forut=1to3-len(x$) :x$="9"+x$:n 
ext:return 
680 rem *** daten sortieren *** 
698 printcl$c4$c4$"es sind"z+1" pr 
ogramme gespeichert.":printc4$c4$c 
4$"bitte warten !!!" 
788 fori=1to1088:next:gosub 1558 


718 1=z-1 

728 forx=z-Itoßstep-1:f=B:fory=Bto 
l 

730 ifd$(y)<=d$(y+1)then?5® 

748 f=y:a$=d$ly) :d$ly)=d$ly+1) :d$l 
y+1)=a$ 

758 next:1=f:iff=2then?7d 

768 next 

770 gosub1569:g0t0138 

780 rem *** editieren *** 

798 printcl$c4$"editieren der date 
n :":printc4$c4$"right ein elem 
ent vor" 

888 printc4$"left ein element 
zurueck":printc4$"space element 
edieren" 

818 printc4$"esc 

menue":printc4$"del 

oeschen" 

828 printc4$"inst 
vegen" 

838 printc4$c4$cA$" 

id bIk" Ä 

848 fori=1t048:printzv$; :next:prin 


zurueck ins 
element 1 


element einf 


name 


tchr$( 27) +"t" 

858 i=d 

868 printhe$c4$" ";d$(i):getkeya$ 
870 ifa$=c3$theni=i+t1:ifi=z+titheni 
=0 

880 ifa$=c1$theni=i-1:ifi=-Itheni= 
zZ 

8908 ifa$=" "then9408 

988 ifa$=chr$( 27) thenprinthe$+he$: 
goto13® 

918 ifa$=chr$( 28) then958 

920 ifa$=chr$( 148) then9?78 

938 goto868 

948 printc2$; :inputd$[li):goto86® 
958 ifi=zthenz=z-1:i=9:goto86® 

968 gosub1558:forr=i+1toz:d$(r-1)= 


d$(r) :next:z=2-1:g0osub 1568: gotod6d 

970 gosub1558:forr=ztoitistep-1:d$ 

(r+1)=d$(r) :next:d$(i+1)=" 

980 z=z+1:gosub1568 

998 i=i+t1:goto86® 

1008 rem *** laden von disk *** 
1818 printc1l$c4$c4$"name der datei 
22"; :inputn$:open2,8,2,"Bd:"+n$+", 
s,r":input#2,2z 

1020 fori=®toz:input#2,d$(i) :next: 

printc4$c4$ds$ 

1030 close2:getkeya$:goto138 

1048 rem *** speichern *** 

1858 printcl$c4$c4$"name der zu sp 

eichernen datei eingeben ";:input 

n$ 

1868 printc4$c4$"soll datei uebers 


<th> 


<fg> 
<al> 


<hb> 
<io> 
<hh> 
<ij> 
<pe> 


<pl> 


<bm> 


<fa> 
<cd> 
<if> 


<ab> 
<gd> 
<ef> 


<gp> 


<pk> 
<nl> 


<pd> 
<kf> 
<ag> 
<cd> 
<cd> 
<pj> 


<nl> 
<el> 
<mp?> 
<fj? 
<ha> 
<he> 
<jm> 


<bp> 
<ii> 


<ch> 


« 
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chrieben werden (j/n) "; 
1878 input j$:3$="":ifj$="j"thena$= 
an 

1880 open1,8,1,a$+"8:"+n$+",s,w":p 

rint#1,z:fori=®toz:print#1,d$(i):n 

ext 

1898 closei:printc4$cA$ds$:getkeya 

$:g0t0138 

1108 rem *** ausdrucken *#** 

1118 ein=14:aus=15 

1128 printcl$c4$c4$"name ?7?";:inpu 

tn$:printc4$c4$"datum ??";:inputd$ 
1130 printcl$c4$c4$c4$"drucker fer 

tig (j/n) ???":getkeya$:ifa$<>"j"t 

hen 138 

1148 open4,4:cmd4:print 

1158 print"programmliste von ";chr 

$(ein) ;n$;chr$( aus)" 

1168 print"(aktuell vom ";d$;")":p 

rintchr$(ein) ;"programme:";z+t1;chr 

$( aus) :print 

1178 a$=" name id blk 
":a$=a$ta$taß:printaß 

1180 age" 7 nn 

-":a$=a$+ta$+ta$:printa$ 

1198 Feint((((z+1)/3)+.1-int((z+1) 

/3))*3) 

12808 iff=QOtheng=B:elseg=1 


1218 fori=Btoint((z+1)/3)-1 

1228 print" "d$li)" "d$lint((z+1 
)/3) +i+g)" "d$lintl(z+1)/3*2)+i+ 
g) 

12380 next 


1248 iff=Bthen 12608 

1258 print" "d$li);:iff=2thenprint 
n "d$li+i+1) 

1260 print#4:close4 

1278 goto138 

1288 rem *** directory *** 

1298 scencelr:directory:getkeya$:got 
0138 

1300 rem #*# loeschen *** 

1318 run 

1320 rem #*#% ergaenzen *** 

1338 ifz=Othen1340:elsez=z+t1 

1348 printc1$c4$c4$;z+1;c1$". elem 
ent :":printc4$"(* eingeben, wenn 
fertig!)" 

1358 printcA$c4$c4$"name ZUNSEl 
nputn$:iflenin$)>16then 12358 

1360 ifn$="#"thenz-z-1:g0ot0130 
1378 printc4A$"id 77"; :inputi$ 
:iflen(i$)<>2then 1378 

1380 printc4$"bloecke ??";:inputbl 
:ifb1l>999orbl<dthen 13808 

1398 x=bl:gosub66@:iflen(n$)=16the 
n1418 

1488 fori=1to16-len(n$) :n$=n$+" ": 


<gj? 


<mp> 


next <1lm?> 
1410 d$(z)=n$+" "+i$+" "+x$:printc 
4$cA$d$( z) :printc4$"richtig (j/n) 


a <hm> 
1420 getkeya$:ifa$="n"then1348 <fh> 
1430 z=z+1:g0t01348 <gb> 
1448 rem *** fehler-routine *** <hn> 
1458 closeS:close15:close4:trap145 

Q:gosub 1558 <gg> 
1468 printhe$he$c1l$c4$c4$f1$" f e 

hier t!!"fo$ <11> 


1470 printc4$rn$"diskettenstatus 
"rf$:printds$:printc4$rn$"basic-fe 


hler :"rf$ <op> 
1488 printerr$(er)" error in";elhe 
n1408 <ek> 


1498 printc4$c4$c4$rn$"bitte waehl 
en :"rf$:printc4$"-1- weitermachen 


<hn> 
1588 printc4$"-2- zum menue":print 
c4$"-3- ende" :gosub 1568 <df> 
1510 getkeya$ <em> 
1528 a=valla$) :ifa<tora>3then1518 <hi> 
1538 ifa=1thenresumenext <dj> 


1548 ifa=2then13d:elsesenclr:end <og> 
1550 poke65286,, peek( 65286) and239:r 


eturn <fa> 
1560 poke65286 ,peek( 65286) ori6:ret 

urn <ck> 
1578 rem nachspann =============== <hbf> 


1588 rem * farbcodes/steuercodes * <og> 
1598 c4$=chr$( 817) :rn$=chr$( 918) <lg> 
16808 he$=chr$( 819) :c3$=chr$( 029) <gp> 
1618 f1l$=chr$( 138) :fo$=chr$( 132) <bg> 
1628 c2$=chr$( 145) :rf$=chr$( 146) <nh> 
1638 cl$=chr$( 147) :c1$=chr$( 157) <ob> 
1648 rem *** zeichensatz/graphik * <hd> 
1658 z2$=chr$( 163) :zm$=chr$( 183) <ih> 


1660 zv$=chr$( 192) <of> 
1678 return <kh> 
1680 rem ================2==2==0==22= (0> 
1698 rem 12277 bytes memory <ad> 
1708 rem 859728 bytes program <bl> 
1718 rem 88238 bytes variables <ko> 
1720 rem 01510 bytes arrays <bf> 
1738 rem 81371 bytes strings <dp> 
1740 rem 03438 bytes free (DB) <jf> 
1758 rem ======================= == (jp> 


Disk-Jockey 


Fortsetzung von Seite 120 


Name schon auf Diskette, sollten Sie die nächste Frage 
mit J und RETURN quittieren, andernfalls tippen Sie 
N und RETURN. 


Punkt 6: 


Dies ist die Druckroutine. Mit ihrer Hilfe können Sie 
Ihre Liste zu Papier bringen, sofern Sie über einen 
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EUROPE-WAR 5 


Drucker verfügen. Alle Modelle, die ich testen konnte, 
liefen einwandfrei, so daß es mit Ihrem Drucker auch 
keine Schwierigkeiten geben sollte. 


Punkt 7: 
Nach der Anwahl erscheint das Directory der eingeleg- 
ten Diskette. 


Punkt 8: 

Bei diesem Menüpunkt haben Sie die Möglichkeit, Ihre 
Liste von Hand zu ergänzen. Sie müssen Name, die ID 
und die Anzahl der vom Programm belegten Blöcke 
eingeben. Sind Sie mit dem Ergänzen fertig, so tippen 
Sie anstatt des Namens das Zeichen ‚„*“ ein, und Sie 
gelangen wieder ins Hauptmenü. 


Punkt 9: 

Dieser letzte Menüpunkt löscht den Speicher, und Sie 
können eine neue Liste laden oder eingeben und weiter- 
arbeiten. Björn Schneider U 


EUROPE WAR 


Taktik 
„ gegen 
Übermacht 


Mit Geduld und strategischem Geschick 
erobern Sie die vom Feind besetzten Gebiete. 
Doch ist dies nicht ganz einfach, denn der Computer 
bekommt bisweilen Verstärkung. 


Die Hälfte Europas befindet sich in der Hand von 
Superpower, der sich auch die restlichen Gebiete 
noch unter den Nagel reißen möchte. Ihre Aufgabe ist 
es, die Armeen Superpowers zu schlagen und alle Ge- 
biete zurückzuerobern. 

Der Angriff erfolgt durch Würfeln. Hat der Angreifer 
eine höhere Zahl, so verliert der Verteidiger eine 
Armee, ansonsten der Angreifer. Da bei Punktegleich- 
heit der Verteidiger den Angriff abwehrt, ist er beim 
Würfeln etwas im Vorteil. Dies können Sie sich zunut- 
ze machen, um den wild angreifenden Gegner zu 
schwächen. 

Zwischen zwei Gebieten ist in einer Runde nur zwei- 
maliger Schlagabtausch möglich. Auch ist die Gesamt- 
zahl der Angriffe pro Runde begrenzt. Sie haben im 
Gegensatz zu Superpower die Wahl, ob Sie angreifen 
wollen oder nicht. In jeder Runde bekommen die 
zwei Seiten zusätzliche Armeen, drei sind es zu Beginn. 
Je nach Anzahl der besetzten Gebiete ändert sich die 
Anzahl der dazukommenden Armeen. 

Superpower bekommt bisweilen zusätzliche Armeen, 
mit denen er seine strategische Unterlegenheit nahezu 
ausgleichen kann. Besitzt er am Ende nur noch ein 
einziges Gebiet, das zudem nur von einer Seite aus an- 
gegriffen werden kann, ist es enorm schwierig, ihn 
dort wieder herauszulocken, um ihn völlig schlagen 
zu können. Einige Stunden müssen Sie sich Zeit neh- 
men, um Superpower zu besiegen. Doch aufgepaßt, 
nicht daß Sie am Ende der Besiegte sind. 
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19 rem aurope-war======-====-=====p4 

28 rem (p) commodore welt team 

su ren nn 

48 rem (c) by eckhard schulz 

58 rem ’ 

68 rem 

78 rem basic v3.5 

88 rem plus4 (c16/116 + 64 kb) 

98 ren 
188 gosub 3588 

118 gosub3438:color@, 1 

128 color4,1:printwh$ 

138 gosub 2958 

148 printig$he$left$(qd$, 13) left$( 

gr$, 14) rng"sasssanenannee" 

158 printleft$(gqr$, 14) rn$"* europe 
war * 

168 printleft$(qr$, 14) rn$"*##r###* 

AREREE" .gosub3190 s 

178 printc1l$c4$c4$c4$"die zeit ist 
vorbei----eine periode"” 

188 printc4$"die in keinem geschic 

htsbuch steht.":gosub3418 

198 printc4$c4$c4$"europa ist in 1 

2 gebiete unterteilt.” 

288 printc4$”und jedes gebiet hat 

eine eigene armee."” 

210 :gosub3418 

228 printcl$c4$cA$c4$”da ist super 

power,(ich) ," 

238 printcA$”ich versuche jedes ge 

biet zu besetzen!” 

248 gosub3418 

258 printc4$c4$c4$"”es ist deine au 

fgabe mich zurueck-"” 

268 printc4$"zuschlagen und deine 

gebiete, die 

278 printc4$"bereits besetzt sind, 
wiederzubekommen."”:gosub3418 

288 printc1$c4$c4$c4$"wir beide ha 

ben am anfang 6 gebiete." 

298 printc4$"(meine sind mit einem 
"#' gezeichnet)” 

380 printc4$"wir beide muessen uns 
schlagen" 

318 printc4$"denn einer muss gewin 
nen--und ich bin" 

328 printc4$"bereit dich zu ueberl 
aufen.":printc4$"also pass auft!!"” 

338 printc4$c4$c4$rn$"druecke eine 
taste zum start."”:gosub3198 

348 dimp( 12) ,c( 12) ,F1( 12) ,d(12),cd 
(12),cr(12) ,hd( 12) ‚,hr( 12) 

358 gosub369:goto428 

368 n$="abcedefghjklm” 

378 ee$=" ":forx=1t039:e$=e$tee$:e 
q$=egq$tee$:next:eg$=he$+tc4$teg$:e$ 
=he$+te$ 


<ak> 
<ho> 
<ng> 
<no> 
<pd> 
<ah> 
<nl> 
<fd> 


<jg> 
<fc> 
<bg> 
<hj> 
<di> 
<ah> 
<cj? 
<eh> 
<ef> 
<jg> 


<ko> 


<oj? 
<mb> 


<jn> 


<pb> 
<nl> 


<be> 
<cj? 
<ij> 
<mn> 
<bg> 
<jo> 
<ga> 
<ck> 
<if> 
<gb> 


<mf> 
<kc> 


<ph> 
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388 forn=itol2:readcd(n),cr(n) ‚hal 

n) ,hr{n) :next 

398 xd$=c4$:forx=1t025:cd$=cd$+xd$ 
next 

4808 xr$=c3$:forx=1t039:cr$=cer$+xr$ 
next 

418 return 3 

428 printcl$c4$cA$cA$rn$”wuerfle w 

er anfaengt."b3$"<taste>" 

438 p=rnd( rnd(8)) :p=intl(6*p) +1) :g 

osub3198 

448 printc4$c4$c4$”dein wurf ";:pr 

intp:gosub3198 

458 printc4$c4$"mein wurf "; 

468 c=rnd(rnd(B)) :c=int((6*c)+1):i 

fc=pthen469 

478 printc:gosub3198:ifp>cthenprin 
tcA$c4$cA$”"du Faengst an---":fl=i: 
gosub3418 

488 ifp<cthenprintc4$c4A$cA$”ich fa 
nge an---":f1l=2:gosub3418 

498 gasub2958:gosub146R:iffl=1ithen 
628 

S5aB got0978 

518 ml=8:hg=8:1m=8:gh=9:al=B:ab=®: 
ba=8:be=@:cd=®:de=®:de=®:1j=8:1k=0 
:ed=d 

520 jl1=@: jk=0: jf=0:kl=@:kj=d:fe=ß: 
fj=B:ef=B:ge=d:gf=0:gj=d:gk=B: jg=® 
539 la=@:fg=-Q:eg=-@:kg=-@:return 

548 m=rnd( rnd(9)) :m=int( 15*m) 

558 ifm=1Ithenprinte$eg$:printhe$”S 
neue divisionen kommen extra!":go 
sub3198 

568 ifm=itheniffl=ithentp=5:goto61 
12) 

578 ifm=ithente=5:goto61® 

588 ifm=2thenprinte$eq$:printhe$”d 

rei flugstaffeln sollen mir helfen 
":g0sub3198 

598 ifm=2theniffl=1thentp=3:goto61 

(7) 

688 ifm=2thentc=3 

618 return 

620 gosub548 

638 goasubS1@:fl=1:fora=1to12:ifpla 

) <>®thenti1=t1+1 

648 next:til=intl (t1/2)+.5)+tp:ifti 

<3thent 1=2 

658 ifti<>@then83d 

668 ift1=B@thenprinte$eg$:printhe$" 

willst du angreifen (j/n)?" 

678 gosub321@:ifa$="n"thenprinte$: 

g0oto978 

659 ifa$<>"j"then66B 

698 printe$eg$:printhe$"angriff vo 

n wo ?";:gosub3210:fw$="":fw$=a$:a 

w=1 


<em> 
<tk> 


<oi> 
<mf> 


<gp> 
<lo> 


<af> 
<bm> 


<a0> 


<km> 
<dh> 
<cp> 


<cc> 


<bd> 


<pj? 
<ed> 
<cg> 
<ma> 
<cg> 
<gg> 
<ac> 
<ei> 
<ej> 
<fg> 
<le> 


<hh> 


<hn> 
<mi> 


<ke> 
<1f> 


<hi> 


<jn> 
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788 printce3$rn$fw$:fora=1to3ßß:nex 
t:gosub928: ifaw=2then65# 

710 aw=@:ifp(n)<2thenaa=s1 

728 ifaa=ithenprinte$eq$:printhe$"” 
du hast nicht genug armeen zum ang 
riff"” j 

738 ifaa=1thengosub3198:aa=9:goto6 
58 

748 printe$eq$:printhe$”nach wa ?"” 
‚:gosub3210:tw$="":tw$=a$:printc3$ 
rn$tw$ 

758 gosub 1618:iffw=1thenfw=B:goto6 
58 

768 gosub18@8:v=rnd(rnd(B)) :v=int( 
25*V) 

778 ifv=ithenprinte$eg$:printhe$"d 
as muss ein panik-zug sein!!"” 

788 ifv=2thenprinte$eg$:printhe$"d 
u kannst es besser machen!!"” 

798 ifv=3thenprinte$eq$:printhe$”e 
in fuenkchen hoffnung im zug!!” 
888 Fora=1t0o15@Bd:next:goasub26AB:fo 
ra=1t0o15@0@:next:gosub2728:g0sub325 
B 
8ia 
828 
838 
BA0 


pp=pp+1:ifpp=6then978 

goto658 

gosub868:p{n)=p(n)+1:t1=t1-1 

gosub 1578 

858 printhe$nd$nr$p{n) :goto658 

868 printe$eg$:printhe$rn$"druecke 
buchstaben um armeen zu setzen"rf 

$ 

878 print”du hast”t1"armeen zum se 
tzen.":in=® 

888 gosub3218 

898 Fora=1t012:ifmid$(n$,a,1)<>a$t 
henin=int1 

982 next 

918 ifin=12thend6d 

928 n=B:fora=1t012:ifmid$(n$,a,1)= 
a$andc( a) -@thenn=a 

938 next :ifn<>dthenreturn 

9489 printe$eg$:printhe$”das ist ni 

cht dein gebiet!":gosub3198 

958 ifaw=ithenaw=2:return 

968 goto86d 

978 w=8:fl=2:b=8:t2=8:gosub51® 

988 gosub548 

998 fora=1to12:ifc( a) <>@thent2=t2+ 
1:b=b+1 

1888 next:t2=intl (t2/2)+.5)+te:ift 
2<3thent2=2 

1818 printe$eg$:printhe$”nun bin i 
ch dran!":gosub3198 

1828 vernd(rnd(9)) :veint( (v3) +1): 
ifv<>2then 1889 

1838 printe$eg$:ifb=11thenprinthe$ 
+"”kaempfen bis zum ende 7" 


<mi> 
<go> 


<al> 


<pn> 


<fm> 
<cc> 
<bce> 
<mj?> 
<gh> 
<cd> 
<le> 
<ib> 
<co> 
<hd> 
<ck> 
<el> 
<lp> 


<dk> 
<cd> 


<fm> 
<jb> 


<fe> 


<kd> 
<ke> 


<ah> 
<hj> 
<pn> 
<jl> 
<ep> 
<ah> 
<dc> 
<mj? 


<ip> 


<bj> 
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1849 ifb=9thenprinthe$+"ich fuehre 
nun!” 

1858 ifb=6thenprinthe$+"wir sind b 
eide gleich,aber nicht lange!” 
1868 ifb=3thenprinthe$+"ich habe n 
och ein bischen aufzuholen!”" 

1878 ifb=ithenprinthe$+"meine letz 
te festung!!” 

1888 gosub3198:printe$egq$:printhe$ 
"ich setze"t2"armeen nach--":gosuh 

3418 

1899 goto1118 

11a9 t2=t2-1:gosub257B:ift2=dthen? 
118 

1112 ifel 12) >Band( c{ 12) -p( 11))<@th 
enc( 12) =c( 12) +1:n2=12:goto1188 
1128 b=c{ 11) :ifb>Bandf( b-p( 12)) <Bth 
enc( 11) =c{ 11) +1:n2=11:goto1188 
1138 ifb>Band( b-p( 1)) <@thenc( 11)=c 
( 11)+1:n2=11:goto1188 

1148 ifb>Band( b-p(9)) <Bthencl 11) =c 
( 11)+1:n2=11:goto1108 

1158 ifb>Bandl b-pl 18)) <dthencl 11) = 
e( 11) +1:n2=11:goto1188 

1168 b=c( 1) :ifb>Band( b-p( 11)) <@the 
nc{ 1)=c[ 1) +1:n2=1:goto1198 

1178 ifb>Band( b-p( 2))<Bthenct 1) =c( 
1) +1:n2=1:goto1190 

1188 b=c( 2) :ifb>2and( b-p( 1)) <Bthen 
c( 2) =c(2) +1:n2=2:goto1188 

1198 ifb>Band( b-p( 3)) <®thenc( 2) =c( 
2) +1:n2=2:goto1128 

1288 b=c( 3) :ifb>Band( b-p( 2))<Bthen 
c(3)=c( 3) +1:n2=3:goto1188 

1218 ifb>Band( b-p(4))<Bthenc( 3) =c( 
3) +1:n2=3:goto1188 

1228 b=c( 4) :ifb>Band( b-p( 3)) <Bthen 
c{4) =c( 4) +1:n2=4:goto1188 

1238 ifb>Band( b-p(5))<Bthenc( 4) =c( 
4) +1:n2=4:g0t01188 

1248 b=c(5) :ifb>Band( b-p(4)) <dthen 
ce(5) =c(5) +1:n2=5:goto1188 

1258 ifb>Band( b-p( 6) ) <Bthenc(5) =c( 
5)+1:n2=5:goto110® 

1268 ifb>Band( b-p( 7))<@thenc( 5) =cl 
5) +1:n2=5:goto1188 

1278 b=c( 9) :ifb>Band( b-p( 11)) <Bthe 
nc(9)=c( 9) +1:n2=9:goto1188 

1288 ifb>Band( b-p( 6)) <dthenc( 9) =c( 
9)+1:n2=9:goto1188 i 

1298 ifb>Band( b-p( 18)) <Bthenc( 9) =c 
(9) +1:n2=9:goto1168 

1308 ifb>Bandl b-p( 7)) <Bthencl 9) =cl 
9)+1:n2=9:gota1188 

131@ b=c( 18) :ifb>Band( b-p( 11))<Bth 

enc( 18) =c( 18) +1:n2=190:goto1188 
1328 ifb>Band( b-p(9)) <Bthenc( 18) =c 

(19) +1:n2=18:goto1188 


<fb> 
<kj? 
<gg?> 


<ek> 
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1338 ifb>Band( b-p( 7))<Bthencl 18) =c 
( 18)+1:n2=19:goto1188 

1348 b=c(6) :ifb>Band( b-p(5))<@then 
c(6) =c( 6) +1:n2=6:goto11B9 

1358 ifb>Band( b-p( 9) ) <dthencl 6) =c{ 
6) +1:n2=6:goto1108 

1368 ifb>Band( b-p( 7)) <Bthenc 6) =c( 
6) +1:n2=6:goto1188 

1378 ifc(8)>Band( c(8)-pl7))<Bthenc 
(8) =c(8) +1:n2=8:goto11A8 

1388 b=c( 7) :ifb>Band( b-p(8))<dthen 
c(7)=c(7)+1:n2=7:goto1188 

1398 ifb>Band( b-p(5))<@thencl 7) =c( 
7) +1:n2=7:goto118®8 

1488 ifb>Band( b-p( 9) ) <Bthenc( 7) =c( 
7)+1:n2=7:g0to1188 

1418 ifb>Band( b-p( 18) ) <@thenc( 7) =c 
(7) +1:n2=7:goto11B8 

142@ ifb>Band( b-p( 6) ) <sdäthenc( 7) =c{ 
7)+1:n2=7:goto1188 

1438 v=rnd(rnd{8)) :veint(( 12*v)+1) 
:ifc(v)=®then 1438 

1448 c(v)=c{(v)+1:n2=v:g0t01188 
1458 gosub3258:g0ot0o628 

1468 fora=1t012 

1478 v=rnd(rnd(B)) :v=int((12*v) +1) 
:iffl(v)<>8then 1478 

1488 ifa>6thenc( v)=5:g0t01508 

1498 plv)=5 

15a@ Fl(lv)=1:next 

1518 fori=1to12:n=i 

1528 ifpli)=®then 1540 

1538 gosub 1579:printhe$nd$nr$pli): 
goto 1558 

1548 gosub 157@:printhe$nd$nr$cl(i): 
printhe$hd$hr$"#" 

1558 next 

1568 return 

1578 nd$="":nr$="":hd$="":hr$="" 
1588 nd$=1l1eft$(cd$,cd(n)) :nr$=left 
$(er$,cr(n)) 

1598 hd$=1eft$(cd$,hd(n)) :hr$=left 
$ler$,hr(n)) 

1680 return 

1618 n=8:fora=1to12:ifmid$(n$,a, 1) 
=tw$andce( a) <>dthenn=a 

1628 next:ifn<>&then 1658 

1638 printe$eq$:printhe$"das ist s 
chon dein gebiet, dummkopf!!":gosub 
3198: fw=1 

1648 return 

1658 iftw$="a"and( Fw$="b"orfwg="1" 
)then 1798 

1660 iftw$="b"and( Fw$="a"orfw$="c" 
})then1798 

1678 iftw$="c"and( Fw$="b"orfw$="d" 
}then1798 

1588 iftw$="d"and( Fw$="c"orfw$=-"e" 


« 
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}then 1798 

1698 iftw$="e"andl Fw$="d"arfw$="f” 

orfw$="g") then 1798 

1700 iftw$="f"and(l fw$="e"orfw$="g" 

orfw$="j")then1798 

1719 iftw$="g”’andl fw$="e"orfw$="f"” 

orfw$=" j"orfw$="K"orfw$="h")then17 

98 

1728 iftw$="h"andfw$="g"then 1798 

1738 iftw$="j"andl Fw$="T"orfwg="g" 

orfw$="k"orfw$="1")then1798 

1748 iftw$="kK"and( Fw$="g"orfw$="j" 

orfwf$="1")then1798 

1758 iftw$="1"and( Fw$="kK"orfw$="j” 

orfw$="a"orfw$="m”) then1798 

1768 iftw$="m"andfw$="1"then 1798 
1778 printe$eg$:printhe$"du kannst 
"rn$fwsrf$” nicht angreifen ":fw= 
1 

17808 gosub3199:g0t01798 

1798 return 

1808 iffw$="m”and( tw$="1")thenml=m 

1+1:ifml>2then2188 

1810 iffw$="h”andl tw$="g”)thenhg=h 

g+1:ifhg>2then2188 

1828 iffw$="1l"and( tw$="m”)thenlm=l 

m+1:iflm>2then2188 

1838 iffw$="g”and( tw$="h")thengh=g 

h+1:ifgh>2then2188 

1840 iffw$="a”and( tw$="1")thenal=a 

1+1:ifal>2then2188 

1850 iffw$="b”and( tw$="a”)thenba=b 

a+1:ifba>2then2198 

1860 iffw$="b"and( tw$="c")thenbe=b 

c+1:ifbc>2then2188 

1878 iffw$="c"and( tw$="d”)thencd=c 

d+1:ifcd>2then2188 

1888 iffw$="d”and( tw$="c"”)thende=d 

c+1:ifdce>2then2188 

1898 iffw$="d”and( tw$="e")thende=d 

e+1:ifde>2then2108 

1900 iffw$="l"and( tw$="j")thenlj=1 

j+1:if1lj>2then2108 

1918 iffw$="l"and( tw$="kK”)thenlik=1 

k+1:iflk>2then2188 

1929 iffw$="e"and( tw$="d")thened=e 

d+1:ifed>2then2188 

1930 iffw$="j”"and( tw$="1")thenjl1=j 

1+1:ifj1>2then2 188 

1940 iffw$=" j"and( tw$="kK")thenjk=j 

k+1:ifjk>2then2188 

1950 iffw$="j"and( tw$="f")thenjf=j 

f+1:ifjf>2then2188 

1960 iffw$="K”’andl tw$="1”")thenkl=k 

1+1:ifkl>2then2188 

1978 iffw$="kK"andl tw$="j")thenkj=k 

j+1:ifkj>2then2188 

1988 iffw$="f"and( tw$="e")thenfe=f 
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e+1:iffe>2then?2188 

19908 iffw$="f"andl tw$="j")thenfj=f 
j+i1:iffj>2then2108 

2u08 iffw$="e"and( tw$="f")thenef=e 
f+t1i:ifef>2then2188 

2818 iffw$="g”andl tw$="e")thenge=g 
e+t1i:ifge>2then2188 

2028 iffw$="g"andl tw$="f")thengf=g 
f+1:ifgf>2then2108 

2038 iffw$="g"and( tw$="j")thengj=g 
j+1:ifgj>2then2188 

2848 iffw$="g"and( tw$="k")thengk=g 
k+1:ifgk>2then2188 

2058 iffw$="j"andl tw$="g")thenjg=j 
g+ti:ifjg>2then2188 

2868 iffw$="f"and( tw$="g")thenfg=f 
g+ti:iffg>2then2188 

2878 iffw$="e"and( tw$="g")theneg=e 
g+1i:ifeg>2then2188 

2088 iffw$="kK"and(l tw$="g")thenkg=k 
g+1:ifkg>2then2188 

2098 return 

2188 printe$eg$:printhe$”nimm eine 
n anderen angriff!":gosub3198:goto 
658 

2118 fora=1to12:y=c(a) :pokeB32+a,y 
:y=pla) :poke832+a+12,y:next 

2129 clr:gosub358@:dimp( 12) ,c( 12), 
f1(12),d( 12) ,cd( 12) ‚cr( 12) ,hd( 12), 
hr( 12) 

2138 fora=1to12:d=peek[ 832+a) :c(a) 
=d:d=peek( 832+a+12) :pla)=d:next 
2148 gosub369:goto2178 

2158 cc=cc+1:ifcc=6then628 

21608 fl=2:g0osub2498 

2178 ifml<2thenifc( 12) >2andp( 11) <> 
Bthenfw$="m":tw$="1":ml=ml+1:goto2 
158 

2180 ifhg<2thenifc( 8) >2andp( 7) <>&t 
henfw$="h":tw$="g":hg=hg+1:goto215 
(7) 

2198 iflm<2thenifc( 11) >2andp( 12) <> 
Bthenfw$="1":tw$="m" :1m=1m+1:goto2 
158 

2288 ifgh<2thenifc( 7) >2andp( 8) <>Bt 
henfw$="g":tw$="h":gh=gh+1:goto215 
1%) 

2218 ifal<2thenifec( 1) >2andp( 11) <>8 
thenfw$="a":tw$="1":al=al+ti:goto21 
58 

2228 ifab<2thenifcl 1) >2andp( 2} <>Bt 
henfw$="a":tw$="b":ab=ab+1:g0t0215 
8 

2238 ifba<2thenifc( 2) >2andpf 1) <>Bt 
henfw$="b";tw$="a":ba=batl:goto215 
8 

2248 ifbe<2thenifc( 2) >2andp( 3) <>&t 
henfw$="b":tw$="c":be=be+1:goto215 


<mm> 
<nl> 


<bo> 
zxeb> 


<hf> 
<enn> 
<ka> 
<of> 
<ke> 
<fk> 


<ce> 
<pc> 


<in> 


<ag> 
<ne> 
<dj> 
<ij> 


<mn?> 
<bo> 


<li> 
<l1> 
<le> 
<kd> 
<fh> 
<jk> 


<on> 
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1a) 
2258 ifcd<2thenifc( 3) >2andp( 4) <>Bt 


<1b> 


henfw$="c":tw$="d":cd=cd+1:goto215 ° 


17) 

2268 ifde<2thenifc( 4) >2andp( 3) <>@t 
henfw$="d":tw$="c":de=dc+1:goto215 
1%) 

2278 ifde<2thenifc(4)>2andp(5)<>Bt 
henfw$="d":tw$="e":de=de+1:goto215 
1) 

2288 ifla<2thenife( 11) >2andp( 1) <>® 
thenfw$="1":tw$="a":la=la+t1l:goto21 
58 

2298 iflj<2thenifc( 11) >2andp( 9) <> 
thenfw$="1":tw$="j":1j=1j+t1:goto21 
58 

2388 iflk<2thenifc( 11) >2andpf 18) <> 
Bthanfw$="1":tw$="K":1k=1ktl:goto2 
158 

2318 ifed<2thenifc(5)>2andp( 4) <>Bt 
henfws="e":tw$="d":ed=-ed+1:gotao215 


1%) 

2328 ifjl<2thenifc( 9) >2andp( 11)<>® 
thenfw$="j":tw$="1":j1=j1+1:goto21 
58 

2330 ifjk<2thenifc( 9) >2andp( 18) <>@ 
thenfw$="j":tw$="kK":jk=jkt1:goto21 
58 

2348 ifjf<2thenifc( 9) >2andp( 6) <>@t 
henfw$="j":tw$="f":jf=jf+1l:goto215 
[4] 

2358 ifkl<2thenifc( 18) >2andpt 11) <> 
Bthenfw$="kK":tw$="1":kl=kl+1:goto2 
158 

2368 ifkj<2thenifc( 18) >2andp( 9) <>® 
thenfw$="kK":tw$="j":kj=kjt1:goto21 
58 

2378 iffe<s?thenifc( 6) »2andp( 5) <>Bt 
henfw$="f":tw$="e":fe=fe+t1:g0oto215 
1%) 

2380 iffj<2thenifc( 6) >2andp( 9) <>Bt 
henfw$="f":tw$="j":fj=fjti:goto215 
8 

2398 ifef<2thenifc(5)>2andp( 6) <>Bt 
henfw$="e":tw$="f":ef=ef+1:goto215 
8 

2488 ifge<2thenifc( 7) >2andp( 5) <>Bt 
henfw$="g":tw$="e":ge=ge+1:goto215 
(3) 

2418 ifgf<2thenifc( 7) >2andp( 6) <>@t 
henfw$="g":tw$="f":gf=gf+1:goto215 
17) 

2428 ifgj<2thenifc[ 7) >2andpf 9) <>Bt 
henfw$="g":tw$="j":gj=gjti:gato215 
(7) 

2438 ifgk<2thenifc( 7) >2andp( 18) <>8 
thenfw$="g":tw$="k":gk=gk+1:goto21 
58 


<aa> 
<ej> 
<kd> 
<bd> 
<pg> 
<ga> 
<jg> 
<fb> 
<ad> 
<ij> 
<he> 
<ie> 


<eb> 
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2448 ifjg<2thenifc( 9) >2Zandpi 7) s>Bt 

henfw$="j":tw$="g":jg=jg+1:g0oto215 

a 

2458 iffg<2thenifc( 6) >2andp( 7) <>Bt 

henfw$="f":tw$="g":fg=fg+1:goto215 

1%) 

2468 ifeg<2thenifc{ 5) >2andpf 7) <>Bt 

henfw$="e":tw$="g":eg=seg+t1:goto215 

D 

2478 ifkg<2thenifc( 18) >2andp( 7?) <>® 
thenfw$="kK":tw$="g”":kg=kg+1:goto21 

58 

2488 gotuo628 

2498 gosub3198:printe$eg$:printhe$ 
"ich greife an von "rn$fw$rf$"” nac 

h "rn$tw$ 

2588 gosub3199:gosub26BA:fora=1to2 

BBB:next:gosub2728:gosub3258 

2518 ifp(n2)<1ithen2538 

2528 goto2178 

2538 v=rnd(rnd{B)):v=int((9*#v)+1) 

2548 ifc(ni)-v<2then2538 

2558 c{n1)=c{n1})-v:e(ln2)=c(n2)+v 

2568 n=n1:gosub1578:printhe$nd$nr$ 

en) 

2578 n=n2:gosub 1578:printhe$nd$nr$ 

rn$c(n) :gasub3198 

2588 n=n2:gosub 1578:printhe$nd$nr$ 

c({n) 

2598 gosub1578:printhe$hd$hr$”"#":g 

osub3258:return 

2688 w=rnd(rnd(B)) :v=int( (6*v) +1) 

2618 iffl=1thenp=v:goto2638 

2628 c=v 

2638 v=rnd{rnd(B)) :veint((6*v)+1) 

2648 iffl=1thenc=v:gosub27B9:goto2 

684 

2658 p=v:gosub2788 

2668 ifp=>cthenprinte$eq$:printhe$ 

"du hast meinen angriff abgewehrt! 
":return 

2678 printe$eg$:printhe$"mein angr 
iff war erfolgreich!":return 

2688 ifc=>pthenprinte$eg$:printhe$ 
"ich habe deinen angriff abgewehrt 
!":return 

2698 printe$eq$:printhe$”dein angr 
iff war erfolgreich!":return 

2788 printe$eg$:printhe$"dein wurf 
",:gosub341@:printp;:gosub3198 
2718 printb3$"mein wurf ";:gosub34 
18:printce:gosub319@: return 

2728 fora=1to12:ifmid$(n$,a,1)=fw$ 
thennI1=a 

2738 ifmid$(n$,a,1i)=tw$thenn2=a 

2748 next 

2758 iffl=1andp>cthenc(n2)=c(n2)-1 

2768 iffl=lande=>pthenp(n1)=pln1)- 


<cb> 


PAINT- SYSTEM 


1 

2778 iffl=2andp=>cthenc(n1i)=c{n1i)- 
1 

2788 iffl=2ande>pthenpf( n2)=p(n2)-1i 
2798 iffl=1thenn=n1:goto2818 

2888 n=n2 

2818 gosub 157@:printhe$nd$nr$b3$:p 
rinthe$nd$nr$p(n) 

2828 iffl=1thenn=n2:goto2840 

2838 n=ni 

2848 gosub 1578:printhe$nd$nr$b3$:p 
rinthe$nd$nr$c(n) :iffl=1then2868 
2558 return 

2868 ifc(n)>=ithenreturn 

2878 printe$eg$:printhe$"anzahl de 
r besetzenden armeen ( 1-9)?" :gosub 
3218 

2888 v=valla$) :e=ß:ford=1t09:ifv=d 
thene=e+1 

28908 next:ife=@then2868 

2908 ifplni]l-v=1thenzd6d 

2918 p(n1)=p(n1)-v:p(n2)=p(n2)+v 
2928 n=n1:gosub1578:printhe$nd$nr$ 
pln)c1$" " 

2938 n=n2:gosub1578:printhe$nd$nr$ 
p(n) 

2948 gosub157@:printhe$hd$hr$” ":r 
eturn 

2958 poke884,57:poke8BB5, 1 

2968 print”JdBbbbKeeeeeeeeeeeeeeee 
BBERLEeEeEREReeeLBeeEEe”" 

2978 print”BcCaaaaaaaaaaaaaaaaaaa) 
cCaaaMoCaaasaMoCakelaaKflaaaaakh” 
2988 print"Bclaaaaaaaaaaaaaaaaaalc 
KjlaaaKfEdKhBcCaaJcKfGaaaMolaaaaaa 
Kh" 

2998 print"BcCaaaaaaaaaaakml jCkkkk 
klcKfGaaKefCaaNpBcCaNpJcKeeMolaaaa 
aaakKh" 

3080 print"BcCaEbFeEmboFeE jllaKml)c 
CalmBcLlCoasaycKfEcBcK jNpJcCaaa"; 
3818 print"BcK jCaaalcK jGaaaaakflaa 
Kh" 

3028 print"BceCaaaaaaaaKeemJcCaßcLo 
CaaaaaKddClaKhlelaaKhBclaaaKelcKfCla 
aaaaaaakKh" 

3038 print"BelaaaaaaKhJcKdCaKhBclg 
JeCalgBcCaEopfeEeCnaaKhJclaaßck jla 
aJcK jCaaaaaaaaaakh" 

3040 print"BcCaaaaaadclbaalkBcKal jJ 
cEbKhBeCarFdEffCaKhlcKdNpBcCaNpK jCa 
aaNpJcCaaaaaaasaaakh” 

3858 print"BceCaaaaaaliKdlbal jJcCaaa 
LgBcCaaKeedJcK jCaaKdNpBcKedcK jdddMn 
Keelaaaaaaakh" 

3868 print"BcCaaaaaasaKkmJelobaaaße 
LiKeJcK jbaaaaaaKhlaaaaaaaakflaaaaa 
aKh” 


<hp> 
<io> 
<ni> 
<pc> 
<kp> 
<oa> 
<ap> 
< jm> 
<dl> 
<oi? 
<cj? 
<ea> 
<jh> 
<fp> 
zia> 
<1j> 
<nj? 


<in> 


<fg> 
<dj> 


<1f> 


<dk> 


<kj> 


<oo> 
<jp? 


<ld> 


<ck> 


<bg> 


<bm> 


<l11> 


<km> 


3972 print"BcCaaaaaaaasaaka,Jck jMnG 
aaaEklaaaMoGaaaEglaaaaKfLaaaaaakh" 
3888 print”"BcCaaaaaaaaNpJcKddddlaa 
MnCaaaaaMolaaaaasaaMolaaaaaaakh" 

3898 print"”BclaaasaaaaaaNpJcCaakmla 
aKhlaaaasMnKeeelaaaaKheeelaaaaakh" 


3188 print"BcelaaaaaaaaaKkhlclaasaaaN 
oKeeeeeMoCaaaMnKeeeMoCGaaKhlaaaaakh 


3118 print"BcCaaKhJ)cKdddNpBcKeeJcK 
jlCaaaaaKdMolasaaKflasaaaaaaaaaNndc 
Kjdddd" 

3128 print"BeCaadck jCaEnCaaaaNnCaa 
aaaaMnCaaaNpBcKdNpJcCaaaaakhlaaaaa 
BcFdEdiFhlo"” 

3132 print"BcCaJck jbaaaaaaaaKdMnBc 
KflaaaaaNpJcCaaNpBcCaNpJceCaaaaaaaa 
aaBcEnffFeCa" 

3148 print"”BcCalJclaaaaaaaaadck jlaa 
aasaaaNpJcCaElNpBclaaNpJceCaaaaaaaa 
NpBcCaadcK jh” 

3158 print"BceCadclaaaaaaaßck jCaaaE 
njFeeEfmCaasNpJcCaaNpBcClaalclaaaaa 
aMoKdCaaEiKh" 

3168 print”BcCaaNpJcCaaaaßck jCaaaa 
aEnffFeGaaaaaaNpCaloCaNpJcCaNpBcla 
aaNpJcCaaaakKh" 

3178 print"BelCaaaaaaaaaaaaaaaaaaaa 
aaalmlaaaaNpJcCaNpBcCaaaNpJcKeeelk 


3188 poke884,75:poke885,236:return 
3198 poke239,8:wait239, 1 

3288 return 

3218 geta$:ifa$=""then3218 

3228 return 

3238 data11,18,9,11,5,19,6,19,7,22 
‚8,23,5,28,4,30,9,32,10,32,14,24,1 
5,27,20,27 

3248 data18,26,22,36,22,34,14,17,1 
3,16,18,17,17,18,17,11,15,14,20,3, 
18,6 

3258 s=8:t=8:fora=1to12:ifc(a)<>Bt 
hens=s+1 

3268 ifp(a)<>Bthent=t+1 

3278 next:ifs=12then3388 

3288 ift=12then3348 

3298 return 

3388 printcl$c4$c4$"aha! ich habe 

gewonnen--":gosub3410 

3318 printc4$c4$"meine invasions-s 
trategie war brilliant":printc4$”w 
ie immer!!!” 

3328 gosub341@:printc4$c4A$rn$”niem 
and"rf$" kann mich stoppen!":gosub 
3418 

3338 printc4$rn$"”heute europa----m 
orgen die ganze welt!!!":gosub3414 
:g0t03388 


<be> 
<me> 


<od> 


<ga> 


<ho> 


<jk> 


<nc> 


<bh> 


<ol> 


<fi> 


<pp> 
<jo> 
<no> 
<kh> 
<mf> 
<mp> 


<ej> 


<mh> 


<fe> 
<ki> 
<nj? 
<hb> 
<fl> 


<gb> 


<id> 


LISTINGSE 


3340 printel$c4$c4$"bahl-du hast g VIER WÜRFEL 


ewonnen”:gosub341® <kj?> 
3358 printc4$"das auch nur durch e 
inen fehler" <lc> 


3368 printc4$"in meiner konzentrat 


ion!":gosub341@ <fo> 5 
3378 printc4$c4$"es passiert besti 
mmt nicht wieder!” :gosub3418 <me> 


3388 printc4$cA$"willst du noch ei 


nmal spielen ( j/n)?"” <fl> Vier nebeneinander liegende farbige Würfel 
3398 gosub3218:ifa$<>" j"then3390 <fc> sind so zu drehen, daß Oberseiten, Unterseiten, 
3488 run <de> Vorderseiten und Hinterseiten je vier unterschied- 
3410 Fortgq=1to30@8:next <md> - liche Farben aufweisen. 

3428 return <ga> 

3438 restore3458:fori=313t0341 <na> Vier Würfel ist ein Knobelspiel. Das Bild zeigt vier 


Würfel. Da es nicht möglich ist, alle sechs Seiten eines 


Heine 2 am eg Würfels gleichzeitig zu sehen, erscheinen die nicht 


turn <ef> sichtbaren Seiten unterhalb der Würfel. Sie müssen 
3458 data 201,813,248,022,201,193 <mg> sich vorstellen, daß die Rückseite sowie die linke und 
3468 data 848,912,856,233,193,818 <fm> untere Seite nach unten gezogen wurden, so daß Sie 
3470 data 810,010,018,141,056,001 <pf> in das Innere des Würfels blicken. 
340 data 024, 096,056,233,065,013 ij» Die 24 Seiten der Würfel sind in vier verschiedenen 
= ’ Bat ’ Farben eingefärbt, jedoch völlig unregelmäßig. Es ist 
3490 data 056,081,076,075,236 <mk> durchaus möglich, daß eine Farbe aufeiem Würfel 
3588 rem nachspann =============== <ho> drei- bis viermal vorhanden ist, auf einem anderen 
3518 rem * farbceodes/steuercodes * <gf> et ten Würfel heinkein Eikikand 
& R nter dem ersten Würfel erscheint ein blinkender 
Sem .. en ee > Pfeil. Durch Druck auf den Feuerknopf wandert 
rn$=chr$( 018) :he$=chr$( 019) i dieser Pfeil von Würfel zu Würfel. Der Würfel, auf den 
3540 c3$=chr$( 029) :rf$=chr$( 146)  <Iip> der Pfeil zeigt, kann in alle sechs Richtungen gedreht 
3558 cl$=chr$( 147) :1g$=chr$( 153) <op> werden. Dies geschieht ebenfalls mit Hilfe des Joy- 
3568 c1$=chr$( 157) <fd> sticks. Dabei gilt folgende Regel: 
3570 rem #t##t#t# zeichenfolgen * <nb> ® oben = kippen nach hinten; 
3 ® unten = kippen nach vorne; 
3580 for q=1 to 48 <nk> ® rechts = drehen nach rechts; 
3590 qd$=qd$+cA$:qr$=qr$+c3$ <lh> ® links = drehen nach links; 
3608 nextgq:b$=chr$( 32) <bp> ® oben und rechts= kippen nach rechts; 
3618 b3$=b$+b$+b$:return <1p> @ oben und links = kippen nach links. 
3620 rem ========================= <j0> Das Ziel des Spieles ist es, die Würfel so zu drehen, 


daß die Reihen oben, hinten, unten und vorne keine 


3630 rem 60671 bytes memory <pb> Farbe mehrmals zeigen. Das heißt also, daß alle 

3648 rem 14124 bytes program <hb>? . vier Farben in den genannten Reihen vertreten sein 

3650 rem 99245 bytes variables <dp> müssen. Die rechte und linke Seite der einzelnen Wür- 

3668 rem 90576 bytes arrays <ia> fel ist dabei ohne Bedeutung. _ E 

3670 rem 8616 bytes strings <1p> Zur besseren Übersicht werden die Farben der ge- 

3658 rem 45110 bytes free (®) BR nannten Reihen unten rechts noch einmal angezeigt 
y und die Reihen, die schon richtig sortiert sind, blin- 


DET EEE SERNETERSBFOREUE. WITT ken. Wenn alle vier Reihen blinken, ist das Ziel des 
Spieles erreicht. 
EERFEEESAERFTEIHERENE E Danach werden Sie gefragt, ob Sie Schluß machen 


Denk beim Zr RTIENTE wollen. Bei Eingabe von J ist das Spiel zu Ende. Ge- 
Porto an 2 3 ben Sie N ein, können Sie sich entscheiden, ob Sie 
den anderen... N das Standardspiel spielen wollen oder ob Sie es vor- 
Alale 1 ziehen, die Würfelfarben durch den Zufall bestimmen 
Nimm el ; zu ee Gleich, D ln Sa eier es 
Wohlfahrts- wird immer gewährleistet, daß das Spiel eine Lösung 
briefmarken. hat. Vielleicht sollten Sie zuerst eine Weile mit dem 


gen immer gleich sind. 
Sollten Sie sich einmal völlig verfranzt haben oder 
keine Lust mehr verspüren, so bringt die RETURN- 


! 
R Standardspiel üben, weil dann die Ausgangsbedingun- 
$ 


a tee 


KANN 
wm 


vu. 
vu 

vw 

ynüwvmV 


Pe 


” Das Porto mit Herz & Verstand Taste wieder das Auswahlbild zurück. : 
. i In der Zeile oberhalb der Würfel wird ganz links die 
...für Hilfe, die ihr Ziel erreicht: Ä Ä Sal i 
Anzahl der Versuche und über jedem Würfel die An- 

bel häuslicher Krankenpflege, bei der Unterstützung von Familien In Not, bel F 
der Beschaffung von Materlallen für Kindergärten, bel Fahrdiensten für Behin- zahl der Drehungen angezeigt. 
derte und „Essen auf Rädern“, die Hilfe rasch und unbürokratisch erfordern, Das Spiel ist auf dem Plus/4 und auf dem cl 6/1 16 
Er1wilttIeh ls IA Ir Mur bebiher Post, yanzydhey bei den Wohllahrtsverbänden lauffähig. G. Kramer DO 
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VEER "WUERFEIL. 


18 rem vier wuerfel=========c016/p4 <pj> 588 pokeatlen(a$) +3, 105 <mc> 
28 rem (p) commodore welt == <hf> 598 next <cc> 
30 rem -===-=-=.=-:=:==:==2=====2 === === 22. <ng> 608 next <dg> 
48 rem (c) by g. kramer == <eg> 618 Fori=399to8dstep-1 . <im> 
58 rem == <if> 620 a=peek(b+i) <gg> 
60 rem == <nd> 638 ifa=185thena=233:g0t0668 <ck> 
78 rem basic 3.5 4Bz/ascii == <ef> 640 ifa=233thena=195:g0t0668 <ol> 
80 rem c16/p4 + 1531/1551/41/71 == <hb> 650 ifa=124thena=123 nj> 
98 rem =====-=======--------.-----= Cjg> 660 pokeb+399-i+480,a <en> 
1D88 gosub323 <ee> 670 next <md> 
118 gosub238 <kg> 688 fori=1to4 <dn> 
120 gosub 1288 <mc> 690 gosub84ß <cm> 
130 gosub2458 <of> 700 next <pp> 
148 ifa$="a"then11Q <fb> 7180 pokeze,21:pokesp,29:syscu <gg> 
150 ifa$="j"thenend <id> 728 print"oben" <km> 
160 gosub2708 <61> 730 printtab(29) "hinten" <pn> 
178 goto11® <em> 748 printtab( 29) "unten" <fc> 
180 getkeya$ <nk> 758 printtab(29)"vorne"; <je> 
198 end <pn> 768 fori=b+876tob+996step4B <ml> 
2B0 RRRRRRRRRRRSRRRRRRRSRRRN <hk> 790 fori@=Bto3 <nh> 
eld ### wuerfel zeichnen *#** <gl> 788 pokeitiD, 258 chf? 
299 RRRRARRRRREHRRRRRRRRRBR <gg> 790 nexti®,i <ph> 
230 a$=chr$( 168) +chr$( 168) <jh> 8080 return <ne> 
240 aß$=chr$( 233) +a$+a$+chr$( 105) <je> 818 <ej> 
250 a$=a$+a$+chr$( 160) <da> Ren <ac> 
260 a1$=chr$( 90) +chr$( 98) <kc> 830 > <1b> 
278 a1$=chr$( 98) +al$+a1$+chr$( 124) <kb> 840 a=f+72+19*i <ai> 
280 fori=dto3 Ends 850 forid=Bto1 <1ln> 
290 a=b+81+10*i <fe> 860 a=at39*id <nm> 
308 fori1=Bto1 <nj> 870 fori1=8toS <nd> 
318 a=a+i1*39 <go> 888 pokeati1,w(i,?) <ca> 
328 fori@=1tolen( a0$) <oh> 890 nextil, id — <ba> 
330 pokeatiß,asc(mid$( a0$,id,1)) <pf> 988 pokef+875+i,w(i,1) <fc> 
348 next <cm> 918 a=f+151+10*i <gp> 
358 pokea+len( a0$) +1,255-165*i1 <bj> 928 forid=Dto4 20j> 
368 next <fe> 930 a=at4d <af> 
370 pokea+len( ad$) +1,255 <1b> 340 Foriielend <bp> 
388 pokea+tlen(a8$) +2,233 <ag> 958 pokeatil,w(i,2) <pk> 
3908 a=a+408 <gm> 968 nexti1,ißd Ras 
408 foril=1tolen(a1$) <pk> 978 pokef+995+i,w(i,2) <fp> 
410 pokea+ii,asc(mid$(a1$,i1,1)) <hp> 980 a=f+79+10*i <1k> 
420 next Zn 998 fForid=Bto! <ad> 
430 pokea+len(a1$)+1,233 <dc> Topl uma#a9 <hk> 
440 pokea+tlen(a1$) +2, 168 <pa> ‚1810 fori1=®t05 <ab> 
458 foriQ=dto4 <pf> 1828 pokeat48*i1,w(i,3) <ig> 
460 a=a+4d <pl> 1038 nexti1,id <fk> 
478 forii=1tolen( a$) <kc> 1048 a=-f+434+10*i <dm> 
480 pokeati1,asc(mid$(a$,i1,1)) <ph> 1858 forid=dto4 <gf> 
4980 next <fj> 1060 a=a+4B8 <kg> 
5@2 ifi@=4then560 <no> 1078 foril=Btoa <fp> 
518 pokea+tleni 08) +1,38 zap> 1088 pokeati1,w(i,4) <jg> 
520 pokea+len( a$)+2, 160 <go> ie rt har 
530 ifi@=3then588 <jg> 1100 pokef+915+i,w(i,4) <de> 
5408 pokea+tlen(a$) +3, 168 <hp> 1118 a=f+433+10*i <ia> 
550 goto59B <ess 1128 forid=dto1l <ef> 
560 pokea+len(a$)+1,98 <bm> 1130 ae <bk> 
578 pokeatlen(a$) +2, 105:g0t0598 <gj? 1148 fori1=0toS <el> 

1150 pokea+40*i1,w(i,5) <aj> 
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1168 nexti1,iß <ae> 1730 next <bd> 
1170 a=f+674+10*i ars 1740 ifaß=-1then1320 <jj> 
1180 foriQd=®to1 <kd> 1758 return <xeh> 
1190 a=a+39 ER 1760 RRRRRHRRRRRRRRRRRHRREHRGE <od> 
1200 fori1=0t05 <kb> 1770 **%* kippen nach hinten #** <gg?> 
1218 pokeati1,w(i,6) <nc> 1780 HBBHHeHHRSBRRRRRBB <cl> 
12280 nexti1,id <ol> 1790 ad=w(w,4) <di> 
1230 pokef+955+i,w(i,6) <mc> 1800 w(w,4)=w(w,1) <hd> 
1248 return <eh> 1810 ai=w(w,6) <ho> 
1250 RRRRRRRRRRRRRRRRRRRRR EN £oda 1828 w(w,6)=a® <oc> 
1260 *** ordnen der wuerfel *** <ip> 1830 ad=w(w,2) “Nor 
1270 RRRRRRRSHRRRSRRRRRRE <cls 1848 w(w,2)=al <bl> 
12808 w=1 <bj> 1850 w(w,1)=a® <no> 
1290 a=b+393+w*1® <el> 1860 return <ce> 
1300 pokea,30 Be 1870 HHBRBHRRRRRRRRBRRRSHRREEE <dd> 
1318 pokea-b+f,242 <gb> 1888 *** kippen nach rechts **#* <ii> 
1320 ifjoy( 1)<128then1370 le 1890 ERRRRRRRRRSRRRSRRRBEREE <fh> 
1330 pokea,32 <kd> 1908 ad=w(w,3) <ap> 
1340 w=w+1:ifw=5thenw=1 <cj> 1910 w(w,3)=w(w, 1) <mo> 
1358 fori=1t0300:next <hm> 1928 at=w(w,6) <kd> 
1368 g0t01298 <ch> 1930 w[w,6)=a® <ip> 
1370 geta$:ifa$=chr$( 13)then1750 <dj> 1940 ad=w(w,5) <ai> 
1380 ad=joy( 1) <iis 1958 w(w,5)=al 5 <oi> 
1398 if( a8=B)or( a0>8) then 1328 <ah> 1960 w(w,1)=a® <pl> 
1408 if(a0=4)or(a0=6) then1328 <ge> 1978 return <ab> 
1410 Fori=1to2Bß:next Ares 1980 RRRRHRRRHRRSRRRRERSRHERERE <mg> 
1428 ifjoy( 1) <>aßthen1320 ins 1998 *** drehen nach rechts **#* <fb> 
1430 onaßgosub 1790, 1900,2010 <0j> a ei <hl> 
1440 onaß-4gosub2120,2120,2230,234 2010 ad=wlw,3) <oi> 
nn <pj> 2028 w(w,3)=w(w,2) <hb> 
1450 adlw)=adlw) +1 <pk> 2830 al=w(w,4) <nd> 
1460 ad=ad+1 <ha> 2048 wiw,4)=ad <il> 
1470 printchr$( 19)tab[5)ad(t), <jd> 2D5D a0-WLw,5) Kun? 
1480 printspc(5)ad(2), <np> 2060 w(w,5)=al <hd> 
1490 printspce(5)ad(3), <ol> EU mLw,z eat m 
1588 printspc[5)ad(4), <ph> e880 return “no? 
1510 printad gs 2999 ERRRRRRBERRARRRRRRARRR <me> 
1520 i=w:al=a <i8> 2108 *** kippen nach vorne *** <gg> 
1530 gosub84B an 9449 SRHRRRRRIRBRRBRRRRRBRRBRREN <hn> 
1549 ifa$="n"thengosub278® <ih> 2120 ad=w(w,2) <mm> 
1558 a=-aB:ad=d <jk> 2130 w[w,2)=w{lw,1) <bo> 
1568 fori=1t06 <bn> 2148 al=w[w,6) <hm> 
1578 if(i=3)or(i=5)then1730 <no> 2150 w[w,6) =aß <kg> 
1588 al=Q <if> 2160 ad=w[w,4) <ea> 
1590 forid=1to4 <fi> 2178 wlw,4)=al <io> 
1600 al=al+w(id,i) <nc> 2180 w(w,1)=aßd <ce> 
1618 next Zoch 2198 return <ll> 
1620 iD=40 is 9290 RRRRRRRRRRRRSRHSBRRARESHEN <ik> 
1638 ifi=4thenid=8d <cd> 2218 *** drehen nach links **#* <lk> 
1648 ifi=6theniQ=120 ze 2229 RRHRRRRRRRRBRRRRBBRRBRFGE <mj> 
1650 ifi=2theniQ=160 <em> 2230 ad=w[w,5) ”j1> 
1660 Fori2-f+B29+i0toiz+6 <jd> 2240 w[w,5)=w[w,2) HGR> 
1670 pokei2,peek( i2)and127 <cm> 2250 al=w(w,4) “tg> 
1688 next <kp> 2260 w(w,4)=a8 <hf> 
1690 ifal<>344thenad=1:g0t01730 <ed> 2270 ad=w(lw,3) <pe> 
1700 Fori2=f+829+i0t0i2+6 <ec> 2280 w(w,3)=al <ka> 
1710 pokei2,peek(i2)or128 <el> 2290 w[w,2)=aß <jn> 
1720 next <pp> 23880 return <jg> 


131 


‘ 


<1b> 2890 ifa=w(il,i)thenaßd=] <ac> 
<jk> 2908 next <ea> 
: <ma> 2918 ifaß=1then2728 <jd> 
2340 ad=w(w,5) <ie> 2928 nexti,id j <dk> 
2350 w(w,5)=w([w, 1) <of> 2938 forw=1to4 <kc> 
2360 al=w(w,6) <cn> 2948 fori=1t06 <hg> 
2370 w(w,6)=a® a <pc> 2958 a=int(rnd( 1)*4)ori <mg> 
2380 ad=w(w,3) <ja> 2968 forid=1toa <dk> 
2398 w[w,3)=al <ff> 2978 onigosub179B, 1908,2010,2120,2 
’ 
2408 w(w,1)=ad 2463 230,2348 <do> 
NSG rekurn ihe> 29808 nextiß,i,w <1lk> 
DA2B RRRRRRRRRRRBRE <f1> 2998 return <ab> 
2430 zur spielende deb> 3200 FERRREREHTRERRHRREREHHN <ij? 
DIA RRRRARRBRERESEN «obs 38010 *** anfangswerte <ao> 
2450 pokeze,21:pokesp,®:syscu <al> nn <mi> 
2460 ifa$=chr$( 13)then2480 N 3030 color4,1 :rem randfarbe <nb> 
2478 print"geschafft !!!" <pf> 3048 colord,1 :rem hintergrund <ad> 
2488 print Sr 3858 color1,16,5:rem zeichenfarbe <ea> 
2490 print"ende ? (j/n)" <cdh> 3868 scnclr :rem loeschen bild <ka> 
2508 getkeya$ <gk> 3070 b=3972 :rem bildram <dd> 
2510 ifa$="j"then2650 <cH> sa88 F=2048 :rem farbram <pk> 
2528 ifa$<>"n"then2508 <np> 3090 ze=205 :rem cursorzeile <fe> 
555: soncip <1p> 3100 sp=282 :rem cursorspälte <fe> 
2548 fori=1to4 <of> 3118 cu=55464 :rem cursor setzen <jb> 
2550 adli)=® <jp> 3128 dimw(4,6) ırem wuerfelfarben <kp> 
EEE et <jg> 3138 gosub2588 <jg> 
2570 ad=® <ond 3148 ifa$="n"thengosub2788 <po> 
2580 print"standardspiel ? (3j/n) <mk> nn De he in 
2590 poke239,8 <bg> en FEN RUE 
26808 getkeya$ Tas 3178 *#* setzen standardfarben *** <hl> 
2618 ifa$="n"then?2658 <gl> 3180 FRFFFRRRSSTRRE EEE <PP? 
2620 ifa$<>" j"then2608 <oi> ern er 
2630 gosub3198 j Ind 3208 fori=1t04 <lh> 
2640 a$="a" <1d> 3218 forißd=1to6 <kj> 
2658 scncelr <la> Seel: PBBUR “Ber 
2668 return <gk> 3230 w(i,i0)=a <ph> 
2670 ZERRRRRRRRRRRRERBRBRREN <ab> 3248 nextiß,i <gb> 
SCHn EHE zufallsuuerfel +8 <jb> 3258 data51,51,128,70,103,51 <bf> 
9890 ERRRRRRRRRSRRRRRRRRRRN <hl> 3268 data128,120,51,103,78,78 “gd> 
2708 foriß=1to4 <kh> 32708 data?0,120,51,51,123,128 <io> 
2718 Fori=1t06 eins 3280 data183,120,70,103,70,51 <pf> 
2720 a=int(rnd(a)*4)+1 <le> GERD DRENTT Er 
2730 ifa=1thena=51 <ic> Saas) (ae <gb> 
2748 ifa=2thena=70 <df> 3318 rem ende ende ende <dk> 
758 ifa=3thena=183 <pf> 
2760 ifa=4thena=120 <kp> 
2778 w(i®,i)>=a <mm> \ 
2788 ifli=3)or(i=5)then2928 <ja> Gi6/P 4 
2798 ifid>1then2878 <ac> = 
2800 ifi=1then2920 <ci> Hotline 
2818 fori1=1toi-1 <io> r 
2820 ifli1-3)or(i1-5) then2840 <bo> Jeden Mittwoch 
28308 ifa=w( 1,i1)theni1=99 <og? \ 00 
2848 next <mi> 15-19 
2858 ifii=188then2728 <dk> 


2860 goto2920 <ia> Tel. 0891298013 


2870 ad=8 <hc> 
2888 fori1=1toiß-1 <bn> 
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a ___ Een 


Jetzt perfekt: 
Unser Checksummer 


Hatte bisher unser 
Checksummer an Buch- 
stabenvertauschungen 
nichts auszusetzen, so 
zeigt er sich nun nicht 
mehr so kulant. 

Ob Sie mit der alten 
Version nun eingegeben 
hatten: 


10 print”ab” 
oder 
10 print “ba”, 


der Checksummer 
brachte in beiden Fällen 
die Prüfsumme < gk>. 
Leicht kann es vorkom- 
men, dafs beim schnel- 
len Tippen, besonders 
im Zehnfingersystem, 
die Taste, die eigentlich 
erst als übernächste dran- 
kommen sollte, ein wenig 
zu früh erwischt wird. 
Dem Checksummer, der 
lediglich die Ascii-Werte 
der Buchstaben addierte, 
konnte dieses natürlich 
nicht auffallen. Was also 
tun? Ob etwas früher oder 
später addiert wird, än- 
dert nichts am Resultat 
der Summe. Anders ist 
es, wenn man zwei Ver- 
knüpfungsarten kombi- 
niert. So ist z.B. 2*30+40 
etwas anderes als 2*40+ 
30. Und genau dieses war 
dann die Lösung. Die 
Summe wird nun einfach 
durch eine Linksver- 
schiebung vor jeder Addi- 
tion verdoppelt. Da- 
durch, daß im Falle, 
wenn das Ergebnis größer 
als 255 ist, der dabei ent- 
stehende Übertrag als 
Wert 1 zusätzlich addiert 
wird, verflüchtigen die 
Werte der am Anfang der 
Zeile gefundenen Codes 
sich nicht nach 8 weite- 
ren Zeichen. Damit bleibt 
nicht nur die Aussage- 
kraft der Prüfsumme voll 
erhalten, sondern erfär “ 


sogar eine erhebliche 
Steigerung. Und vor allen 
Dingen wird nur eine 
klitzekleine Änderung er- 
forderlich, die dieses zu 
vollbringen, in der Lage 
ist. Ein einziges Byte ist 
nur zu ändern. Wir tun 
dieses mit “poke 345,10” 
in der Zeile 470. Dadurch 
wird das hier ursprünglich 
ansässige CLC (Clear Car- 
ry) durch ASL (Arithme- 
tik Shift Left) ersetzt. 
Die nachfolgende Addi- 
tion mit ADC (Addiere 
mit Carry) addiert den 
Asci-Code des gefunde- 
nen Zeichens und den 
nach links herausgeshifte- 
ten Übertrag. Da einige 
unserer Leser beklagten, 
daß das Checksummer- 
listing nachher noch im 
Programmspeicher stehen 
würde, haben wir diesem 
noch mit einem “new” 
abgeholfen. New bzw. 
neu ist nun folgendes. 


10 print“ab” ergibt die 
Prüfsumme<jd > 

10 print”ba” die Prüf- 
summe<jf> 


Sie brauchen den 
Checksummer nicht neu 
einzutippen. Alles, was 
Sie tun müssen, ist, die 
Zeile 470 anzufügen. An 
der Bedienung des Check- 
summers hat sich nichts 
geändert. Die Eingabehin- 
weise bleiben daher wie 
gehabt. 


EINGABEHINWEISE 


Am rechten Rand jedes 
Listings, jeweils am Ende 
einer Eingabezeile, finden 
Sie zwei Buchstaben zwi- 
schen einem Kleiner- und 
einem Größerzeichen ein- 
geschlossen. Diese dürfen 
Sie nicht mit in Ihr 


Listing eintippen, son- 
dern sie dienen Ihnen zur 
Überprüfung Ihrer Ein- 
gabe. 

Zwischen dem Kleiner- 
und dem Größsrzeichen 
am rechten Rand be- 
finden sich zwei Buch- 
staben. Mit einem speziel- 
len Programm können Sie 
beim Eintippen Ihre Ein- 
gabe auf ihre Richtigkeit 
überprüfen. Dieses Pro- 
sramm, der Checksum- 
mer, sorgt nämlich dafür, 
daß nach erfolgter Zeilen- 
eingabe am linken oberen 
Bildschirmeck zwei Buch- 


ERST SICHERN, DANN 
AUSPROBIEREN 


staben ausgegeben wer- 

den. Wenn diese Buch- 
staben nicht mit den vor- 
her erwähnten Buchsta- 
ben in unserem Listing 
übereinstimmen, so kön- 
nen Sie davon ausgehen, 
daß Sie sich vertippt 
haben und können sich 
so die Zeile nochmals 
näher ansehen, ob Sie 
Ihren Eingabefehler fin- 
den. Wenn Sie dann alles 
richtig getippt haben, so 
stimmen die Buchstaben 
überein und Sie können 
sich getrost der nächsten 
Zeile zuwenden. 

Das Checksummer- 
listing hat noch keine 
Prüfsummen. Seien Sie 
deshalb besonders auf- 
merksam, daß alles pafst 
und speichern Sie dieses 
Programm unbedingt ab, 
bevor Sie es starten! Bei 
einem Tippfehler würde 
es sich wahrscheinlich auf 
Nimmerwiedersehen ver- 
abschieden und Sie müß- 
ten die ganze Arbeit ver- 
mutlich nochmals ma- 
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chen. Wenn Sie es gestar- 
tet haben, so geschieht 
nichts Besonderes. Der 
Computer meldet sich 
einfach“kurz darauf mit 
„READY”, und das war 
auch schon alles. Alles 
sollte nun wie immer 
funktionieren, mit der 
kleinen Ausnahme, daß 
nunmehr nach jeder Ein- 
gabe im Direktmodus 
eine Prüfsumme erscheint. 
Nehmen Sie zum Testen 
irgendeine kurze Basic- 
zeile aus unserem Heft 
her und testen sie aus. 
Wenn die Summen über- 
einstimmen, so können 
Sie sich freuen, denn 
Fehler beim Abtippen 
werden Ihnen nun in Zu- 
kunft viel weniger passie- 
ren, als vorher. 


EINER FÜR ALLE, EIN 
ECHTES UNIVERSAL- 
PROGRAMM 


Unseren Checksummer 
können Sie verwenden, 
ob Sie einen C16/116/ 
Plus4 oder ob Sie einen 
C64 oder gar einen C128 
haben. Nur müssen Sie 
beim letzteren beachten, 
ob Sie auch wirklich im 
40-Zeichenmodus sind. 
Nachdem Sie den Check- 
summer geladen und ge- 
startet haben, können Sie 
Ihr Basicprogramm ein- 
geben wie gewohnt, Sie 
können es abspeichern, 
Sie können auch laden, 
Sie können Kürzel ver- 
wenden und, ob Sie ein 
paar Leerzeichen mehr 
oder weniger verwenden, 
der Checksummer läßt 
sich dadurch nicht aus 
der Fassung bringen. Ein 
bißchen Vorsicht sollte 
man allerdings walten 
lassen, wenn man Pro- 
gramme eingetippt hat, 
in denen Peeks und Pokes 
vorkommen. Es wird 
zwar nicht besonders 
häufig vorkommen, aber 

es könnte bisweilen oe-3D 
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288 
205 
218 
228 
2308 
248 
t 
258 
268 
278 
288 
298 
388 
318 
ıne 
3208 
:go 
338 
348 
358 
368 
378 
388 
398 
488 
418 
428 
438 
448 
458 
468 
478 
488 
498 
588 
518 
528 
538 
548 


=checksummer==c16 c64 c128== 
(p) 85/87 commodore welt == 


(c) alfons mittelmeyer 


c16/116/plus4 
c64 > == 
c128 (48-zeichen) 


rem 
dsata165,859,972,165,868,272,832 
data886, 137, 1984,133,86®, 184,133 
dataB859, 152,872,1698,98088, 165,928 
data824,181,821,178,024,144,811 
data281,832,240,006,138,024,113 
data859,234,1798,2808,177,059,234 
data288,248,169,831,872,138,874 
data874,074,074,072,138,041,815 
dats872,169,831,872,162,803,194 
data824,185,129,157,888,912,282 
data8B16,246,184,168,896 
lt=peek( 772) :ht=peek( 773) 
fori=312t0386:readx:pokei,x:nex 


iflt<>124then35® 
rem 


rem 
fori=312t0317:pokei,234:next 
fori=32it0326:pokei,234:next 
fori=1to6:readad:readx:pokead,x 
xt 
poke388,4:poke319,1t:poke328,ht 
t0438 

data346, 121,347,888,348,882 


data351,185,352,829,353,8®82 

iflt<>13then438 ’ 
rem ------------ ---- ------ - ---- 
rem anpassung c128 (48 zeichen) 


rem 
restore418:poke332,22 
poke335,23:goto318 
data313,9861,316,962,323,862 


data326,9861,347,861,352,861 
poke772,856:poke 773,1 

rem Penn 
rem ergaenzung 18/87 

rem --=--- 2 
poke 345, 1®8:new 

rem ====================2=2====== 
rem = fuer hefte cw 7/87 bis 
rem = cw 9/87 sowie cw128 5/87= 
rem = und c16 6/87 ist die :- 
rem = poke-anweisung in zeile = 
rem = 47B wegzulassen = 
rem ==============2==2=2=2=2=2=2====== 


schehen, dais nach dem 
Laufenlassen eines Pro- 
grammes weder der 


" Checksummer noch sonst 


etwas mehr funktioniert, 
auch wenn dies bisher 
ohne Checksummer nicht 
der Fall gewesen sein 
sollte. Also bitte sichern 
Sie in jedem Falle Ihre 
Programme, bevor Sie sie 
ausprobieren. 

Ein paar Dinge sollten 
Sie noch wissen. Wir 
drucken in unseren Li- 
stings des öfteren Punkte 


statt Leerzeichen. Wenn 
Ihnen nun aber Leer- 
zeichen besser gefallen, 
so liefert der Checksum- 
mer natürlich eine fals_ne 
Summe. Wenn Sie diese 
Richtigkeit überprü’en 
wollen, so können Sie 
dies tun, indem Sie sie 
zuerst einmal so wie im 
Heft abtippen, und nach- 
her, nachdem Sie sie nach- 
geprüft haben, einfach 
wieder die Punkte durch 
Leerzeichen ersetzen. 

A. Mittelmeyer 


MONITOR 


CHECKMON 

48 rem checkmon ===============016 <cen> 
58 rem (p) commodore welt team <ke> 
6B rem =================5=2======== cnk> 
78 rem (c) by a.mittelmeyer <ag> 
88 rem c16/116/plus4 <ki> 
98 rem =========================>= <jg> 
188 fori=312t0398:reada <ei> 
112 pokei,a:next <ep> 


120 data 132,218,108,219,0,132,219 <oe> 
130 data 164,218,76,75,236,2@1,62 <nk> 
148 data 208,249, 165,161, 10,181 <jc> 
158 data 162,160,7,18,113,161,136 <ej> 
16® data 16,258, 133,216,169,30,133 <oh> 
170 data 217,169,62,166,97,208,220 <mk> 
180 data 198,217,208,218,160,105 <ai> 
198 data 288,212,201,13,240,4,164 <ha> 
208 data 218,24,96,169,60,168,68 <Ih> 
218 data 32,61,1,165,216,32,16,251 <ec> 
220 data 169,62,160,5,208,2,169,32 <om> 
230 data 32,75,236,136,208,248,169 <ol> 
248 data 13,208, 176,219,68,220,1 <go> 
250 data 804,56,865, 1 <hn= 
268 fori=1to4:reada:readb:pokea,b <Im> 
278 next:new <ji> 
288 rem ========e=n=d=e=========== coc> 


"CHECKMON” ist eine unerlaessliche Hil- 
fe zur Eingabe von Maschinenprogrammen. 


Laden und starten Sie 


"Checkmon” und 


gehen dann mittels MONITOR in densel- 


ben. 


Wenn Sie sich nun z.B. mit 


"M1B80’ 


einen Speicherbereich ansehen, oder 
Hexzahlen eingeben, so erscheint rechts 
die Pruefsumme anstatt der Asciicodes. 


I  , king 


C16/P4: NOVALOAD- 
COPY (Tape to Tape). 
Autostart und Turbo 
werden absorbiert. 
ACHTUNG! Das Progr. 
darf nur f. Sicherheits- 
kopien genutzt werden. 
Zusätzlich für Sie 
NOVA-TURBO 30,— DM/ 
Bar. Müller-electronic 
Schuhstr. 5, 3110 Uelzen 1 


VERKAUFE aus allen 
Sparten Software (Anfra- 
ge). Jede Disk (f. C16/ 
+4) 10,— DM. Matthias 
Hagen, Neustr. 40, 4018 
Langenfeld 


VERKAUFE Spiele u. 
Anwenderprogr. f. C16/ 
+4, jede Diskette 10,— 
DM u. orig. Markt&Tech- 
nik-Progr.-Sammlungen 
I+II + Illu. High-Screen- 
CAD f. 20,— bzw. 25,— 
DM incl. Anleitungen. 
Tel. 0231/270660 


VERKAUFE Prg.-Disk 
aus CW-SA 4/87, 6/87; 

C. m. SA 3/87, 4/87; 
64er SA 14/87, Textword 
1I Vers. 2,0 m. Handb. u. 
Brosch. ; Tips& Tricks, 
ADM, TW II 30,— DM; 
orig. ACE 10,— DM (frei 
Haus). Tel. 0591/2086 


SUCHE Progr. f. +4: Su- 
perbase, Mikrocalc, 
Script Plus, Calc Plus u. 
a. Anwenderpre. (Tausch 
od. Kauf). Michael Gode, 
Ellernstr. 21, 3032 Fal- 
lingbostel 1 


FREEWARE auf Kass. 
(ca. 40 Pre.) f. C16/116/ 
+4 mit u. ohne 64 K. Liste 
gg. 10,— DM (System an- 
geben). Ulrich Watzlawik, 
Sudetenstr. 32, 8882 
Lauingen 


VERKAUFE Mathe-u. 
Graphik-Master. 8,— DM, 
Kass. u. Rückumschlag an 
Marc Kluetig, Schwarzen- 
berger Str. 13, 5270 Gum- 
mersbach 1, Tel. 02261/ 
66841 


VERKAUFE +4 m. Flop- 
py 1551, Datasette, Joy- 
stick u. Bücher an Meist- 
bietenden. Rudolf Dercks, 
Fürstenbersgstr. 8, 4150 
Krefeld 1 


VERKAUFE C16-Soft- 
ware auf Kass. od. Disk. 
Spiele ab 1,— DM. Liste 
gg. 2,— DM auf Tape od. 
Disk bei Gerhard Winter, 
Am Schwänzchen 23, 
5300 Bonn 1 


VERKAUFE C16-Progr.- 
Sammlung mit 72 Spie- 
len (z.B. Fire Galaxy, 
Monty 1 u. 2 etc.) für 
35,— DM auf Disk. Info 
gg. Rückporto bei Kai 
Uwe Boß, Ilmenweg 5, 
6422 Herbstein, Tel. 
06643/8286 ab 18 h. 


SUCHE +4-User, der mit 
mir Programme tauscht 
(Spiele u. Anwenderpro- 
gramme). Liste an Nor- 
berg Albrecht, Grund- 
weg 1, 2000 Norderstedt 


C16/P4-USER! Orig.-Soft- 
ware-Rest. Liste gg. Freium- 
schlag. Nur Orig.-Kass., aber 
spottbillig. Harald Scheel, 
Kollaustr. 178, 2000 Ham- 
burg 61 


C16/116/P4! HEX-Tastatur f. 
die komfortable Eingabe v. 
MC-Programmen m. TED- 
MON od. Checksummer. In 
BASIC als 2x16 Funktions- 
tasten verwendbar. DM 60,—. 
Hans-D. Veit, Rennweg 21, 
8441 Aiterhofen 


SUPER-ANGEBOT: STAR 
GAMES 60 zum C16/116/ 
Plus4 für 39 ,— Sfr od. 39 ,— 
DM. Auf 4 Kass. finden Sie 
60 interessante Spiele. Lie- 
ferung erfolgt per Nachn. Ko- 
stenlose Info bei: M. Greifen- 
hagen, Stöckelstr. 8, CH- 
8610 Uster 

*** SYSTEMWECHSEL *** 
Plus 4 f. 100,— DM; Floppy 
1551 £. 100,—; Drucker MPS 
801 f. 250,— DM; Monitor 
150,— DM; 2 Joyst. 20,— 
DM; 3mal M+T-Disk u. Son- 
derhefte 75,— DM; Lightpen 
40,— DM; Script+ 40,— DM; 
ELCAD u. HiRes-HC 65 ,— 
DM; 16C-Welt 25,— DM.K. 
Gaisser, 07191/44211 
COMMODORE USER CLAN 
IN DER DDR sucht für seine 
C16/116/Plus4-Freaks Com- 
puterzeitschriften, Bücher, 
Kopien sowie Hardware aller 
Art u. Kassettenschrott, da 
keine Verwandten in der 
BRD. Wir bedanken uns recht 
herzlich. Ludwig Steuner, 
Teutoniaweg 1, DDR 9272 
Gersdorf 


SUCHE alte Computer-Zeit- 
schriften (CW, Happy Com- 
puter, 64er usw.). Benötige 
unbedingt Happy Computer 
Nr. 1/86! SEHR WICHTIG! 
Angebote an: Throsten 
Boese, Pappelweg 23, 2300 
Kiel 1 

SUCHE VC 1520 Plotter/ 
Printer. Wo bekomme ich die 
4-1/2-Zoll-Additionsrollen? 
Paul Brune, Schreinerstr. 4, 
Tel. 05242/34689 


TAUSCHE Software f. Plus4. 
Biete ca. 350 Games u. 100 
Anw. Jede Zuschrift wird be- 
antwortet. Schickt Eure Li- 
sten an Thomas Weisheit, 
Pommrück 6, 6431 Hauneck 
VERKAUFE Liste m. 35 Po- 
kes u. 50 Startadressen v. be- 
kannten Spielen f. C16/116/ 
P4 f. nur 10,— DM-Schein an: 
Jens Borau, Ahornstr. 4, 
3549 Volkmarsen 


C16/P4: VERKAUFE 6 Orig. 
Spiele (Tape) f. 50,— DM.2 
Spiele nur f. 64 KB. Tel. 
05674/4645 


Plus4? Bitte melden bei Rai- 
ner Bielefeld, Neustadtring 
23, 3300 Braunschweig, Tel. 
0531/503589 

PLUS4/C16. Orig.-Spiele 
(Disk) zu verk.: Profipack II 
64K 80,— DM; Music Master, 
Grafikdesigner, Micro Text 
2.0 je 10,— DM; Plus4 Sextett 
20,— DM; alles zzgl. Porto. 
Heinz Weissmann, Im Leitle 
2,8570 Pegnitz, Tel. 09241/ 
2627 


VERKAUFE 64er-SH 14 
(C16 etc.) m. Prog.-Disk f. 
20,— DM; CW-SH 4/87 £. 
6,50 DM; Comp. mit SH 1/87 
f. 6,50 DM; Comp. mit SH 
1/87-3/87 a 3,80 DM; Comp. 
mit 12/86-3/87 a 1,70 DM; 
64er 12/86, 2/87, 3/87, 

6/87 a 3,80 DM. Kaiser, 
Gorch-Fock-Str. 7,2057 
Reinbek, Tel. 040/7104765 


Gehäuse f. Plus4, C16 f. DM 
20,-. Div. Software auf 
Eprom. Viele Ersatzteile f. 
C16 u. Plus4. Info gg. 
Freiumschlag. Harald Hobbel- 
mann, Junkernkamp 18, 
2822 Schwanewede, Tel. 
04209/5390 

SUCHE Floppy 1541 od. 
1551 u. Farbmonitor od. 
Farbfernseher. Nur funk- 
tionstüchtig. Zahle je bis zu 
150,— DM. Tel. 02261/ 
48940 ab 17 Uhr 
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HAST DU PROBLEME m. 
dem C16/Plus4? Du bist An- 
fänger? Wir helfen. Auch 
Fortgeschrittenen. Wir bie- 
ten Clubzeitung, Infos, je- 
de Menge Tips u. Tricks. Am 
besten heute noch Info gg. 
1,60 DM bei CIG, c/o K.-D. 
Schindler, Luciusstr. 10, 623 
Frankfurt 80, anfordern. 


PLUS4, Floppy 1551, Data- 
sette, Monitor, Joyst., div. 
Bücher u. Zeitschr., Anwen- 
derpr. z.B. Micro Text, Da- 
tei, Kalk usw., Spiele z.B. 
ACE, Bongo, Demol., Strip 
Poker usw. wg. Systemwech- 
sel zu verk. VB 400,— DM. 
Lars Winter, Schloßgebiet 4, 
2320 Plön, Tel. 04522/ 
3753, 17-18 Uhr 


Wer kann mir helfen? Suche 
komplette Liste, um selber 
Programme u. Spiele zu 
schreiben! Bin quasi noch An- 
fänger! Unkosten werden 
übernommen! Interesse für 
C16 m. 64K u. C64. Wer 
kann mir helfen? Hans Jür- 
gens, Provinzstr. 111, 1000 
Berlin 51 

AUFGEPASST! Verkaufe 
Plus4, Datasette, 1 Joy, 11 
Comp.-Hefte, 22 Spiele, 3 
Handbücher, 6 Mon. alt, Preis 
nach VB od. Tausch gg. C64. 
Tel. 0201/466338 
C16/116/Plus4. Entwicklung 
v. Rechenprogrammen jeder 
Art. Statistik u. Kalkulation! 
Martin G. Maaß, Kulbrock- 
str. 2,4800 Bielefeld 14 


VERKAUFE f. C16/Plus4 
Spiele u. Anwenderprog., 20 
Prog. zu 10,— DM. VERKAU- 
FE C16-Orig.-Spiele zum hal- 
ben Preis z.B. P.O.D, R16, 
Attack. Schreibt an: C. 
Schnoor, Lausanner Str. 129, 
2800 Bremen 44 

VERKAUFE: C116/C16/ 
Plus4. Anschlußkarte f. Ta- 
statur m. 10er Block (CBM 
600/700), Erw. Karte m. 2 
Steckplätzen f. Expans.-Port, 
2.B. f. Eproms. Brenne Ihre 
Eproms. Suche Hard- u. Soft- 


ware aller Art. Tel. 040/ 
7125694 
Plus4/C16/C116: Biete 5C 


Spiele, div. Anwend.-Prog. f. 
DM 20,— (Disk). Schein od 
Scheck. Suche Kopierprog. v 
Kass. auf Disk. Listings gg 
80 Pf. in Briefmarken. 
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BÖRSE mer Dr WEREIE 


SOFTWARE 1988! Spit- 
zensoftware f. den Com- 
modore 14/+4 bietet Ih- 
nen dieser Software-Kata- 
log 88 zu absoluten Nie- 
drig-Preisen! Gratis-Info, 
Katalog nur 1,30 DM. 

P. Schäfers, Riekestr. 5, 
4402 Greven | 


ACHTUNG! Günstig! Ver- 
kaufe C16 m. 64 KB, 
1551, 1531, Quickshot II, 
Ada., 60 Disk. (voll), 7 
Originalkassetten u. Basic- 
kurs, Zeitschriften! VB 
600 DM. Oliver Berger, 
Lindenstr. 7, 8260 Mühl- 
dorf 


AN ALLE PLUS/4-Besit- 


zer! Tausche Commodo- 
re 16/64 Kb u. Sinclair 
ZX 81 gegen einen funk- 
tionstüchtigen PLUS/4; 

2 Computer für einen! 
Beide Geräte vollkommen 
in Ordnung und m. Hand- 
büchern. Tel. 05475432 


SCHÜLERIN ohne Ein- 


kommen (Taschengeld 
20,— DM/Mon.) hat Zu- 
zahlungszusage a 100,— 
DM u. sucht intakte 
Floppy u. Drucker A4 
für +4. Angebote: Mela- 
nie Schimmelpfennig, 
Kleeweg 23, 4830 Güters- 
loh, Tel. 05241/46235 ° 


SUCHE HAPPY Compu- 
ter Sonderheft 5 (Pro- 
grammiersprachen) sowie 
64er Sonderheft 12 (PRG- 
Sprachen) u. 7/85 (DFÜ 
+ Anwendungen). Michael 
Gunske, Westernheide 16, 
2811 Martfeld 


ARMER C-Einsteiger aus 


der DDR sucht +4 od. 
C16 (64 KB) u. Dataset- 
te f. max. 100,— DM. 
Wer gibt kostenlos defek- 
te Joyst. od. anderen 
‚C-Schrott‘‘ ab? Bettina 
Nagy, Lange Gasse 51, 
7988 Wangen, Tel. 
07522/1882 
KERKERERERRRRRRTRETKENE 
* PLUSA CC -"-16 * 
* 80 Zeichen Textverarb. * 
* deutsche Umlaute > 
* Disk DM 39,90 Fa. BLK * 
* Kaspar-Spät-Str. 5 * 
* 8000 München 90, * 
* Telefon 089 /688226 * 


KERRKRFRRRHRKERERERERERK 


ORIG. Programme (Kass.) 
f. C16 u. 64K. Winter-, 
-Sommer-Olympiade, 
Quiwi, Musikmaster, Mi- 
crokalk, Grandmaster, 
Turbo-Tape, Progr.-Kass. 
Compute Mit, Joyad. 
Kabel f. 210,— DM, Joy- 
stick 20,— DM. Dieter 
Rapp, Stahlackerweg 36, 
7311 Ohmden, Tel. 
07023/5775 ab 19h. 


SUCHE f. C16/+4 Free- 
ware u. Public-Domain- 
Software (auch abgetipp- 
te Listings). Bes. ges.: 
Programmiersprachen, 
Anwendungen,Adv. u. 
Strategiespiele. Michael 
Gunske, Westernheide 16, 
2811 Martfeid 


AN ALLE Amiga- u 
PLUS-4-User im Raum 
Bad Kreuznach: Wir su- 
chen für unseren Club 
noch Mitglieder. Info bei 
Holger Scherer, Jungstr. 
25, 6550 Bad Kreuznach 


SUCHE £. PLUS4/C16 
Bücher (zahle halben NP) 
u. Anleitungen f. Jump 
Jet, Frank B.B., Spy vs 
Spy u. TED) u. "andere 
Chips f. PLUS4/C16. Car- 
sten Schnoor, Lausanner 
Str..121, 2800 Bremen 
44, Tel. 0421/422460 


SUCHE Tauschpartner 
aus der ganzen Welt für 
PLUS4/C16/116; habe 
üb. 1300 Progr. Carsten 
Schnoor, Lausanner Str. 
121, 2800 Bremen 44, 
Tel. '0421/422460 


COMMODORE +4 incl. 
Laufwerk 1551 u. 10 Dis- 
ketten m. Spielen u. Pro- 
gramme zu verkaufen, 

VB 380,— DM. Tel. 
0761/29970 


VERKAUFE Austro 
Speed Compiler, 1-2-3 
CAD u. viele neue Games 
f. +4. R. Vukecivic, Loll- 
mannshof 34a, 4800 
Bielefeld 


VERKAUFE C16 orig. 
Spiele 50% billiger als NP. 
Liste anfordern bei Ale- 
Bau Käss, Hummelstr. 
7,7987 Weingarten 


Lichtgriffel nur DM 49,— 
Vers. gegen Scheck/Nach- 
nahme Infos gratis. 
Computer angeben. 
Anschluß an jeden Com- 
puter möglich. Standard- 
version für Commodore 
lieferbar. Firma Schißl- 
bauer. Postfach 1171A, 
8458 Sulzbach 
Tel. 09661/6592 oder 


0941/999915 bis 21 Uhr 


SUCHE Tauschpartner £. 
+4 auf Disk od. Kass. Su- 
che Farbmonitor f. +4. 
Hans-Jürgen Kinateder, 
Salinenstr. 6, 6927 Bad 
Rappenau, Tel. 07264/ 
6957 


SUCHE Kontakte zu +4- 
Usern; Spez. Interessen: 
Anwenderprogramme, 
Hardware, DFÜ etc. Wer 
hat Erfahrung mit der VC 
1581 am +4? Thomas Ru- 
dolph, Eisenberger Str. 9, 
DDR-8023 Dresden 


VERKAUFE Lottoprog. 


m. hoher Wahrscheinlich- 
keit f. Kass. od. Disk f. 
10,— DM. Suche Tausch- 
partner f. C16/+4 (nur 
Disk). Suche Backupprogr. 
f. 2 Floppys. Dirk 2a, 
Rosenstr. 7, 3563 Elm 
hausen, Tel. 06466/7942 


VERKAUFE orig. Kass. 
u. Disk. von Kingsoft, 
Markt & Technik u.a. 
zum halben Neupreis 
(Spiele, Anwenderprogr. 
etc.). Theo Steinberg, 
Mehlerweg 5, 4600 Dort- 
mund 13, Tel. 0231/ 
270660 


VERKAUFE Winter- 
Games u. „One man and 
his droid“ auf Kass. f. 
250,— ÖS. Suche kaput- 
te Joysticks. Harald 
Pusar, Sonnengasse 28, 
A-9020 Klagenfurt 


VERKAUFE orig. ale 


auf Tape f. C16/ + 

ACE 20,— DM;C. SIalom 
20,— DM; F.B. Boxing 
15.— DM: R.rF. Sky’ 15 
DM; Booty 7,— DM; Tor- 
pedo Alley 5} — DM. Bian- 
ca Hauschild, Fährdeich 
109, 2101 Hamburg 96 


BIN EINSTEIGER und 
suche Kontakt zu C16/ 
+4-Usern zwecks Info- 
tausch und gegenseitiger 
Hilfe. Tel. 0781/42523 


LOGO f. +4, C16 (64 KR) 
Modul, Disk u. Handb. f 
50,— DM bei Vorkasse 
(Nachn. 5,— DM). Div. 
Software auf Steckmo- 
dul. Info gg. Freiumschlag. 
Harald Hobbelmann, Jun- 
kerkamp 18, 2822 Schwa- 
newede, Tel. 04209/ 
5390 ab 18h. 


ERSATZTEILE £. +4/C16. 
Evt. Reparaturhilfe. Div. 
Data-Becker-Bücher zu 
verkaufen. Suche 80-Zei- 
chen-Monitor. Harald 
Hobbelmann, Junkern- 
kamp 18, 2822 Schwane- 
wede, Tel. 04209/5390 

ab 18h. 


VERKAUFE 15 C16- 
Orig.-Spiele, z.B. Bandits 
at Zero, Ghost Town u.a.; 
nur zusammen f. 100,— 
DM. Suche Floppy 1551 
bis 150,— DM. Peter 
Wachter, Mühlenweg 10a, 
6900 Heidelberg 


BESITZEN Sie Turbo- 
tape von Kingsoft od. 
ETP? Wünschen Sie sich 
hierfür einen Autostart? 
10,— DM an H. Linden- 
zweig, Siegwohrstr. 1 
2913 Apen 


9 


Verk. C16 und Plus/4 
mit Datasette! Sowie 
EPROMBRENNER für 
Plus/4 und E.-Bank 192 K 
erweiterbar auf 384 KB. 
Info geg. 0,80-Pfennig- 

reiumschlag 
J. Braunroth, Moordorfer- 
str. 30, 3057 Neustadt 


VERKAUFE Spiele für 
C16/Plus4 für ganz wenig 
Geld. Einfach nur Liste 
anfordern (gg. 80-Pf.- 
Briefmarke): Michael 
Lenhardt, Im Birken- 
grund 77, 6050 Offen- 
bach/M. 


PLUS4 zu kaufen gesucht. 
Angebote an Marion 
Schwalbe, Tegelburg 11, 
2351 Boostedt. Tel. 
04393/1586 
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Biel 


C16/+4-SUPERPRO- 
GRAMME, Spiele, An- 
wender, Kopierprogr. 
Gratis-Info m. Tips u. 
Tricks. Liste anfordern. 
Th. Görtz, Friedr.-Ebert- 
Str. 113, 6103 Griesheim 


hrc e.V. — Plus4 » C16 + 
C116 ® Anwender: Der 
Verein speziell für uns! 
Mit Zeitschrift u. Soft- 
ware-Bibliothek. Info 
beim hrc e.V., Bauerland 
15, 4800 Bielefeld 1 


SUCHE COMPUTE Mit 
u. Sonderheft f. C16/ 
Plus4, auch C16/Plus4- 
SPECIAL-Hefte u. ande- 
re Lit. Schickt Eure Li- 
sten u. Preise bitte schnell 
an: Wolfgang Polenda, 
Brückenstr. 15, 5350 Eu.- 
Roitzheim 


C16/PLUS4! Direkt aus 
USA. Freesoft, ca. 2.500 
Block z.B. Druckersteue- 
rung, Biorhythmus, Black 
Jack, Kalenderdruck. Zu- 
sätzlich: Lotto, Vokabel- 
prog., monatl. Kosten, 
Etikettendruck. Schickt 
20,— DM an: Wolfgang 
Koß, Beringstr. 29, 2215 
Hademarschen 


Computerzeitschriften 
RUN, 64er, Data Welt, 
Input 64 jahrgangsweise 
zu verkaufen. Außerdem 
Spektrum, Bild der Wis- 
senschaft, Physik in un- 
serer Zeit, mehrere Jahr- 
gänge, preiswert zu ver- 
kaufen. Tel. 07231/ 
481493 


RELATIVE Dateiverw. 
der Spitzenklasse f. +4/ 
C16/116. Freie Masken- 
erstellung. Bis zu 1500 
Datensätze (160 kB). Mit 
Handbuch 19,50 DM + 
Porto u. Nachnahme. Jür- 
gen Vowerk, Dörener 
Weg 29a, 4790 Paderborn, 
Tel. 05251/58423 


+4-USER aus der DDR 
sucht Superbase f. +4 u. 
Alles über Superbase u. 
Script/Plus; bin auch an 
Software u. Erf.-aus- 
tausch interessiert. Karbe, 
Th.-Brugsch-Str. 50, DDR- 
1115 Berlin 


Kaufe laufend defekte 
C16 & Plus/4, Floppys 
und Datasetten. Angebote 
mit Preisvorstellung und 
Fehlerangabe. J. Braun- 
roth, Moordorferstr. 30, 
3057 Neustadt 


WER KENNT Execupopt 


3000 — 4000 Data Termi- 
nal Computer Transceiver 
und hat Unterlagen dafür, 
um sie mir zu leihen/foto- 
kopieren? Walter Sewerin, 
Theodor-Heuss-Ring 52, 
5090 Leverkusen 1, Tel. 
0214/56217 


VERKAUFE Spiele f. +4, 
z.B. Mission, Ace 2, Zork 
2 etc. Info gegen Rück- 
porto bei Sven Kuessner, 
Bredde 6, 5758 Frönden- 
berg/Ardey 


C16/64K, verstärktes 
Netzteil, Floppy 1541 II 
(gara.); Joystick, Datas, 
1/O-Port u. Turbo + 
Steckpl., Bücher, Zeit- 
schriften, ROM-Listing, 
Basic-Kurs, Ace, Spitzen- 
software, NP 1600,— DM, 
VB 800,— DM.H. Boss- 
hammer, Heckenweg 2, 
4920 Lemgo 1, Tel. 
05261/87261 


SUCHE Tauschpartner f. 
+4. Nur Top-Software ge- 
sucht. Suche auch Bü- 
cher u. Hefte f. +4. Li- 
sten an Lars Weißbrodt, 
Erpener Weg 14, 4503 
Dissen 


VERKAUF/TAUSCH/ 
KAUF - C16/Plus4. An- 
wender, Games, Freesoft, 
Info bei Jürgen Cissarek, 
Giebelstr. 5, 4650 Gelsen- 
kirchen. 100% Antwort. 


C16+64K, 1531, Druk- 
ker, viele orig. Anwender- 
u. Spiel-Progr. (64 K, 
überw. Kingsoft), Joy- 
sticks sowie ca. 3 kg Lite- 
ratur; NP über 800,— DM, 
VB 300,— DM. Bernd 
Mackeldanz, Kanzlerstr. 
12, 4000 Düsseldorf 30 


30 GAMES für C16/116/ 
+4 auf Tape für 10,— DM 
(incl. Porto). Dietmar 
Neumann, Trierer Str. 
398, 5100 Aachen 


TAUSCHE C16/116/+4 
(64K)-Spiele u. Anwen- 
der-Progr.; gebe auch 
Tips. Liste an Andy 
Grethler, Müllheimerstr. 
24a, 7858 Weil/Rhein, 
Tel. 07621/74946 


SUCHE Soft- u. Hardware 
f. +4/Centronics-Drucker, 
bis 50,— DM: Floppy bis 
150,— DM. Tel. 06221/ 
801863 


SUCHE Tauschpartner £. 
+4-Software. W. Krüger, 
Volksdorfer Weg 32, 
2075 Ammersbeck 


VIELE GRÜSSE an Tho- 
mas in Poppenbüttel. 
Schalt die Kiste auch mal 
aus! Wolfgang Krüger, 
Ammersbek 


BÜROANWENDUNG f£. 
C16/+4: 6 hilfreiche Anw.- 
Progr. f. Heim- od. Büro- 
arbeit, 20,— DM (Scheck 
od. Barzahlung). Guido 
König, Schlenderhaner- 
str. 10a, 5000 Köln 60 


SUCHE Computerclub f. 
C16. Infos und/oder Pro- 
beheft einer Clubzeit- 
schrift an M. Greifenha- 
gen, Stöcklerstr. 8, 
CH-8610 Uster 


SUCHE Drucker f. C16. 
H. Seitz, St.-Lorenz-Str. 3, 
8434 Berching 


VERKAUFE ZX-Spek- 
trum 128 KB, m. Kass. 
100,— DM: suche Progr. 
Monopoly f. C16/+4. Su- 
che Tauschpartner f. An- 
wenderprogr. f. C16/+4. 
Günter Mayer, Hainstr. 
12, 7070 Großdeinbach 


GRÜSSE an die FTA im 
PA 3 Hamburg. Norbert 
Albrecht 


VERKAUFE CHIP 
251641-02 und CHIP 
318006-01 £. je 19,90 
DM (C16); f. Einsteiger 
Data Becker f. 19,90 DM. 
Lieferung nur gg. Nach- 
nahme, Porto u. Versand- 
kosten. 

SUCHE Computerclub £. 
C16. M. Greifenhagen, 
Stöcklerstr. 8, CH-8160 
Uster 
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SUCHE Datasette 1531 
oder 1530 m. Cassetten- 
portadapter. M. Greifen- 
hagen, Stöcklerstr. 8, 
CH-8610. Uster 


VERKAUFE Keyboard 
C16 m. G. f. 29,90; Key- 
board ohne G. f. 19,90 
DM; Verbindungskabel 
TU-C16/116/+4/C64 £. 
9,90 DM. Lieferung nur 
gg. Nachnahme, Porto u. 
Versandkosten. M. Grei- 
fenhagen, Stöckerlstr. 8, 
CH-8610 Uster 


WIR NEHMEN noch Mit- 
glieder auf. Jede Menge 
Infos, Tips u. Tricks für 
C16/+4 und Clubzeit- 
schrift. Grafiken für HSC 
und Zeichensätze für 

6,— DM/Diskette. Info 
gg. 1,60 DM CIG Frank- 
furt, Ruciusstr. 10a, 
6230 Frankfurt/Main 80 


VERKAUFE Balkengra- 
fik-Progr. auf Kass. f. 
10,— DM/Stck. Geld u. 
Notiz (ob Farbe od. s/w) 
an A. Gebhard, Kiefern- 
weg 12, 3113 Suderburg 1 


TAUSCHE Software f. +4, 
Spiele u. Anwenderprogr. 
Suche Citizen IDP 560. 
Paul Kasparbauer, Burg- 
weg 1, 8376 Altnussberg 


VERKAUFE +4 m. Flop- 
py 1551, Datasette, Mouse, 
oystick, 2 M&T-Progr. 
(High-Screen-CAD u. Pro- 
gramms. II), 20 Computer- 
zeitschriften, Software, 
Zubehör Handbücher f. 
VB 570,— DM (alles neu- 
wertig). Tel. 04136/8484 


Cı==> Mrz  Zea:m 


FRIHTKIT 


Zeichensatz 


Ku: nit 

Fettschrift 
Unterstrejichung 

fünf weitere Sonderzeichen 
höhere» Druckaeschwindiakeit 


BETTEN 


Lieferung umf»Pt alle notwendigen 
Bauteile und ausführliche Einbau- 
und Brdienmunassnleitung. 
PRINTKIT Y DH 25,- HH + DM 4,-> 
Mit Einbzauservice DOM 125,-) 
“+ Speichererw. DlE »b DM 35,- 
IHFO gegen Forto! 


Elsctranic YersandHandel 
E.ODöntgen 
Lerchenweg 6 


419n Duisburg 14 


m — — 5 


FRAGEN ZU 
BASIC-BEFEHLEN 

1. Als ich nachsehen woll- 
te, wie ein Programm 
funktioniert, stieß ich auf 
eine IF-THEN-Anwei- 
sung. An sich kein Pro- 
blem, aber mitten drin 
ein AND und ein OR. 
Man liest zwar viel über 
AND- und OR-Gatter, 
aber keiner erklärt, was 
das ist, wo ich sie anwen- 
den kann, und so weiter. 
und so weiter. 

2. Wozu ist eine DEF FN- 
Anweisung gut und wie 
funktioniert sie? Das 
Handbuch gibt wie immer 
„hervorragende“ Erklä- 
rungen. 

3. Was nützt es, eine Va- 
riable zu dimensionieren? 
Ich habe das bis heute 
leider nicht verstanden, 
vor allem, weil das Wort 
„dimensionieren“ sehr 
irreführend ist. Am be- 
sten kann man es wahr- 
scheinlich mit einem Bei- 
spiel erklären, aber bitte 
nicht so eins wie im 
128er-Handbuch! 

4. Man sieht in fast jedem 
Programm, daß eine schon 
früher benutzte Variable 
plötzlich hinter einer neu- 
en in Klammern steht. 
Heißt das, daß jetzt die 
neue den Wert der alten 
übernommen hat? Was 
nützt so etwas? 

Fabian Dohmes 

Alfter 


Zu Frage 1: 


Anders als die uns ver- 
trauten Grundrechenar- 
ten Addieren, Subtrahie- 
ren, Multiplizieren und 
Dividieren werden Undie- 
ren und Odern erst ver- 
ständlich, wenn wir unse- 
ren Betrachtungen das 
binäre Zahlensystem zu- 
grunde legen. Es existie- 
ren dort nur die Ziffern 
Eins und Null. Eine Aus- 
sage kann entweder wahr 
sein oder falsch. Eine 
wahre Aussage erhält den 
Wahrheitswert Eins (True), 
eine falsche Aussage den 
Wahrheitswert Null (False). 
Mit bestimmten Befehlen 
kann der Computer, je 
nachdem, ob eine Aussa- 
ge zutrifft oder nicht, 


Anweisungen ausführen 
oder unterlassen. Dazu 
ein Beispiel: 


1IF 1 THEN PRINT 
“RICHTIG “ 


1 IF 0 THEN PRINT 
“RICHTIG “ 


Im ersten Fall erscheint 
eine Bildschirmausgabe, 
im zweiten Fall nicht. 


Vergleichsoperatoren 
wird nur ein Zahlenwert 
erzeugt. 


PRINT 5=5 
PRINT 5=4 


Der Computer gibt aller- 
dings nicht den Wert Eins 
für die wahre Aussage aus, 
sondern eine negative 
Eins. Der Grund hierfür 
ist, daß der Computer mit 


An uns 


und/über 


uns 


Manchmal sollen mehre- 
re Aussagen miteinander 
verknüpft werden. So soll 
der Computer eine An- 
weisung ausführen, wenn 
zwei Aussagen zutreffen. 
Hierzu gibt es den Opera- 
tor AND. Nur wenn bei- 
de Aussagen wahr sind, 
ist auch deren Verknüp- 
fung mit AND wahr. 


PRINT 0 AND 0 
PRINTOAND I 
PRINT I AND 0 
PRINT 1 AND 1 


Soll eine Anweisung aus- 
geführt werden, wenn 
eine Bedingung bereits 
wahr ist, steht uns der 
Operator OR zur Verfü- 
gung. 


PRINTOOR 


Wenn eine Aussage wahr 
ist, so ist auch deren 
Verknüpfung mit OR 
wahr. 

Vielleicht haben Sie sich 
bereits gewundert über 
die ungewohnte IF-An- 
weisung: 


IF A THEN PRINT 
“RICHTIG “ 


Der Computer erwartet 
nach IF nur einen Zah- 
lenwert. Auch durch 


Integerzahlen von zwei 
Bytes Länge arbeitet. 
Zwei Bytes entsprechen 
16 Bits. Alle 16 Bits wer- 
den auf den Wert Eins 
gesetzt. Das ergibt die 
Zahl $FFFF in hexade- 
zimaler Darstellung. 
Werte von $0000 bis 
$7FFF werden positiv 
dargestellt, Werte von 
$8000 bis $FFFF werden 
negativ dargestellt, $FFFF 
als —] und $8000 als 
32768. Die IF-Anwei- 
sung sieht alle Werte, die 
ungleich Null sind, als 
richtig an. Für Verknüp- 
fungen von Aussagen 
sollte aber ein einheitli- 
cher Wert Verwendung 
finden, am besten —1, da 
zwei durch AND ver- 
knüpfte Werte, die un- 
gleich Null sind, als Resul- 
tat Null liefern können. 


Beispiel 5 
PRINT2 ANDI 


Die IF-Anweisung dürfte 
hiermit wohl eingehend 
erläutert sein, die AND- 
und OR-Operatoren und 
das binäre Zahlensystem 
allerdings zu wenig. Im 
C16/P4-SPECIAL Nr. 3 
finden Sie mehr über Zah- 
lensysteme. Der Artikel 
über Maschinensprache im 
selben Heft behandelt aus- 
führlich OR- und AND- 
Befehle. 
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Zu Frage 2: 


Soll eine längere Formel, 
die öfter im Programm 
benötigt wird, Verwen- 
dung finden, so bieten 
sich zwei Möglichkeiten 
an, wenn diese Formel 
nicht jedesmal neu hinge- 
schrieben werden soll. 
Die erste Möglichkeit 
wäre, sie mit einem 
GOSUB anzuspringen, die 
zweite, sie mit DEF FN 
zu definieren. Dies ge- 
schieht in der Form: 


1 DEFFNY(X) 
=SOR(R#+R-—X *X) 


Der DEF FN-Anweisung 
muß der Variablenname 
folgen mit in Klammer 
eingeschlossenem Über- 
gabeparameter. 

Nach dem Gleichheits- 
zeichen folgt die Formel, 
die in unserem Beispiel 
für einen Kreis mit dem 
Radius R den zu X ge- 
hörenden Y-Wert berech- 
net. Wir ergänzen das 
Listing durch: 


2R=1 


Der Kreis besitzt den Ra- 
dius eins. Die Berechnung 
kann jetzt mit der FN- 
Anweisung vorgenommen 
werden, und das sogar im 
Direktmodus 


?FN Y(0.5) 


Der zu 0.5 gehörende Y- 
Wert ist 0.866, wie uns 
die Ausgabe zeigt. 


Zu Frage 4: 


Die Frage wurde vorge- 
zogen, da erst nach dieser 
Erklärung auf Frage dre: 
eingegangen werden kann 
Steht hinter einer Variao- 
blen eine Klammer, in 
der sich vielleicht eine 
weitere Variable befinde: 
so ist dieses keineswegs 
eine Zuweisung. Es han- 
delt sich hier um eine in- 
dizierte Variable. 
Betrachten wir uns ein- 
mal die normalen Vario- 
blen Bl, B2, B3, B4. 
Nehmen wir ferner an. = 
DATA-Zeilen sollten her 
te eingelesen und den } = 
riablen zugewiesen wer- 


ei ___ __ ma 


den. Es könnte sich natür- 
lich auch um INPUT-Ein- 
gaben handeln. Viermal 
müßten wir die READ- 
Anweisung ausführen. 
Wenn es mehr Werte und 
Variablen wären, viel- 
leicht 50, so hätten wir 
ganz schön viele Zeilen zu 
schreiben. 

Eine Lösung sind die indi- 
zierten Variablen B(1), 
B(2), B(3) und B(4). 
Statt die Zahlen Eins bis 
Vier jedesmal dahinter 

zu schreiben, können wir 
diese auch durch eine an- 
dere Variable oder eine 
Formel ausdrücken. Da- 
mit ist es möglich, Wert- 
zuweisungen in einer 


Laufschleife vorzunehmen: 


1 FOR I=-1 TO4 
2 READ B(I) 
3NEXT 


Bei 50 Zuweisungen las- 
sen sich viele Programm- 
zeilen auf diese Weise spa- 
ren. Variablen können 
auch mehrfach indiziert 
sein. 


INPUT A$(1,J) 


Eine Anwendung hierfür 
wäre eine Datei mit meh- 
reren Datenfeldern und 
Datensätzen. So würde 
hier vielleicht eine Einga- 
be in Datenfeld I im 
Datensatz J erfolgen oder 
umgekehrt, je nachdem, 
wie I und J im Programm 
verwendet werden. 


Zu Frage 3: 


Indizierte Variablen kön- 


nen nur verwendet wer- 
den, wenn der Index den 
Wert zehn nicht über- 
schreitet. Für größere 
Index-Werte muß eine 
Dimensionierung stattfin- 
den, damit der Rechner 
für diese Variablen Platz 
schaffen kann. Man 
spricht in diesem Zusam- 
menhang auch von Da- 
tenfelad. 


DIM A(19,29) 


Dieses Datenfeld würde 
20 mal 30 Felder = 600 
Felder umfassen, zwanzig 
Felder in die eine Dimen- 
sion und 30 in die andere. 


Räumlich vorstellen kön- 
nen wir uns dies als Liste 
mit 20 Spalten und 30 
Zeilen, in die wir etwas 
hineinschreiben können. 
Mit der DIM-Anweisung 
bestimmen wir die Ab- 
messungen (Dimensionen— 
der Liste. 


KAUM ZU GLAUBEN 


Vor einiger Zeit verscher- 
belte ein bekannter Dis- 
counter den C16 mit 
BASIC-Lehrkassette. Ich 
griff zu und war soweit 
zufrieden. Dann kam der 
Wunsch, über einen grö- 
ßeren Speicherbereich 

zu verfügen. Nach Anlei- 
tung habe ich dem C16 
durch Austausch der bei- 
den RAM-Bausteine den 
64-KByte-Speicher-Be- 
reich verpaßt. 
Bekannterweise ist das 
Steckernetzteil des C16 
nicht das beste. Irgend- 
wann bin ich drangesto- 
ßen und der Bildschirm 
zeigte nur noch undefi- 
nierbare Zeichen — nichts 
ging mehr. 

Verzweifelt schaltete ich 
den C16 (nun ja eigent- 
lich C164) aus und an, 
immer wieder. Ich drück- 
te die Reset-Taste, der 
Monitor wurde aus- und 
angeschaltet — doch 
nichts tat sich. 

Also ist das Ding kaputt, 
weg damit in den Keller. 
Neuer Computer muß 
her. 

So kam also der Plus/4 
ins Haus, gleich mit Dis- 
kettenlaufwerk. Alles 
war wieder gut, denn die 
auf Kassette vorhande- 
nen Programme laufen 

ja auch auf dem Plus/4. 
Dann kam Ihre Zeitschrift 
C16/P4-SPECIAL mit 
dem an sich brauchbaren 
Beitrag „Screen-Key- 
board“. 

Ich habe hiervon den er- 
sten Teil verwendet. Mit 
der entsprechenden An- 
derung für die DIN-Tasta- 
tur und die im P/4 einge- 
bauten Software. 

Durch einen nicht mehr 
nachvollziehbaren Um- 
stand drückte ich die Re- 
set-Taste, nachdem das 


Screen-Keyboard-Pro- 
gramm im Rechnerspei- 
cher stand. 

Das Ergebnis war genau- 
so umwerfend wie seiner- 
zeit beim C16 — nichts 
ging mehr! 

Aber welch ein Wunder 
— irgendwann ließ sich 
der Plus/4 doch zurück- 
setzen und war wieder zu 
gebrauchen. 

Können Sie sich dies 
nicht nur vorstellen, son- 
dern auch erklären? 

Ich habe jedenfalls im 
Screen-Keyboard-Pro- 
gramm in Zeile 745 ein 
NEW eingefügt, und 
scheinbar ist dieses Pro- 
blem keins mehr. Ich 
kann jetzt das besagte Pro- 
gramm laden, mit RUN 
starten und die Reset- 
Taste drücken — der P/4 
folgt dieser Anweisung. 
Aber es kommt noch bes- 
ser: Heute hole ich mir 
den C16 (C164) aus dem 
Keller, schalte ihn ein — 
nichts. Wieder spiele ich 
den Turn durch — aus, 
an, aus, an und so weiter. 
Und mit einem Mai mel- 
det sich der C16 (C164) 
mit seinen 60671 Bytes 
Free! 

Das ist für mich schon 
mehr als mysteriös — ich 
ging bislang davon aus, 
daß das Ausschalten des 
Computers diesen in den 
„Urzustand“ versetzt 
und nicht noch nach Mo- 
naten für Geisterbilder 
auf dem Monitor sorgt. 
Sehen Sie eine Möglich- 
keit, mit vertretbarem 
Aufwand beide Compu- 
ter so zu verbinden, daß 
entweder eine einfache 
Konfiguration eines Com- 
puternetzes entsteht 
oder daß zumindest bei- 
de Speicher so zusam- 
menarbeiten können wie 
in der COMMODORE 
WELT 1/88, Seite 16, 
beschrieben (Umschalten 


C16-P4-SPECIAL Nr. 3 
ZEICHEN-CREATOR 


un BANK 1 zu BANK 


Ich habe den Gedanken, 
mit einem Monitor, ei- 
nem Diskettenlaufwerk, 
einem Drücker, aber mit 
„einem Computer mit 
2*64 KByte“ zu arbei- 


ten. 
Reinhold Plennis 
Bad Schwartau 


Genauso mysteriös, wie 
Ihnen die Geschichte 
vorkommt, ist sie auch 
für uns. Ihre Annahme, 
daß nach dem Ein- und 
Ausschalten wieder der 
Anfangszustand vorlie- 
gen sollte, ist völlig rich- 
tig. Zwar gehen nach 
dem Ausschalten noch 
nicht alle Daten verlo- 
ren, wie eine Überprü- 
Jung zeigt. Doch nach 
etwa zwanzig Sekunden 
sollten alle Speicherin- 
halte gelöscht sein. Das 
von Ihnen genannte Zei- 
chensatzprogramm ist 
nicht resetfest, weshalb 
Sie den Rechner ohne 
weiteres durch einen 
Reset wieder in den 
Grundzustand hätten 
bringen sollen. Wir ha- 
ben ebenfalls keinerlei 
Erklärung parat. 

Es ist möglich, zwei 
Computer miteinander 
zu vernetzen. Leitungen 
sind genügend vorhan- 
den. Was fehlt, ist nur 
ein Programm auf den 
beiden Rechnern, das 
den Datentransfer be- 
sorgt. Durch Austau- 
schen der Speicherinhalte 
beider Rechner kann 
auch eine Art Bankum- 
schaltung erfolgen. Da 
auch von anderer Seite 
Interesse über Informa- 
tionsübermittlung zwi- 
schen mehreren Commo- 
dore-Computern geäu- 
ßert wurde, wollen wir 
uns dieses Problems im fol- 
genden Heft annehmen. 


Seite 48 


In das Einleseprogramm schlichen sich aus ungeklär- 
ten Gründen Fehler ein. Am Ende der Zeile 8020 


muß es heißen: GOTO 8040 
Am Ende der Zeile 8030: 
GOTO 8020 
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Computer-Fachbegriffe 


Absturz 


ASCH 


AT 


Batch- 
Datei 


BIOS 


Durch falsche Bedienung 
oder Programm-Fehler 
kann es dazu kommen, daß 
ein Programm auf keine 
Eingabe mehr reagiert, also 
„abgestürzt“ ist. Um die 
Funktionsfähigkeit wieder 
herzustellen, muß das Pro- 
gramm neu geladen wer- 
den. Ein Absturz ist meist 
auch mit Datenverlust ver- 
bunden und sollte bei guter 
Software ausgeschlossen 
werden können. 


American Standard Code of 
Information Interchange. 
1963 entwickelter Standard- 
Code für Kleincomputer. 
Nur die ersten 128 Zeichen 
des Codes entsprechen der 
einheitlichen Norm. Die 
Belegung von 129 bis 255 
kann je nach Hersteller 
variieren. 


Advanced Technology, fort- 
geschrittene Technologie. 
Zusatzbezeichnung für ei- 
nenleistungsstarken PCmit 
Intel 80286-, Intel 80386- 
oder Motorola 68xxx-Pro- 
ZESSOT. 


In einer ausführbaren 
ASCII-Datei abgelegte 
Sammlung von Betriebs- 
system-Befehlen, die nach 
Aufruf der Datei automa- 
tisch nacheinander abgear- 
beitet werden. Batch-Da- 
teien besitzen grundsätz- 
lich die Erweiterung BAT. 


Basic Input/Output-Sy- 
stem, Basis-Ein/Ausgabe- 
System. Steuert die Ein- 
und Ausgabe-Vorgänge des 


Bit 


Bus 


Byte 


CASE 


Rechners (Tastatur, Bild- 
schirm, Schnittstellen). 
Wirdnach dem Einschalten 
des Computers als erstes 
aus dem ROM geladen. 


Binary digit, binäres Zei- 
chen, kleinste ansprechba- 
re Einheit eines Computer- 
systems. Enthält entweder 
0 oder 1 (Strom an/aus). 


Fachausdruck für parallel 
angeordnete Leiterbahnen, 
die einen Informationstran- 
sport zwischen verschiede- 
nen Bauteilen, Baugrup- 
pen oder Peripheriegeräten 
gewährleisten. 


Kennwort für die Samm- 
lung von acht binären Stel- 
len zur Darstellung von 2 
hoch 8=256 verschiedenen 
Bit-Kombinationen. Ein 
Byte enthält jeweils ein AS- 
CIH-Zeichen. 


Computer Aided Software 
Engineering. Program- 
mentwicklung unter Zuhil- 
fenahme des Computers 
als Entwicklungs- und Do- 
kumentations-System, bei- 
spielsweise zur Erstellung 
von Struktogrammen mit 
Hilfe geeigneter Software. 


Centronics Nach einem Drucker-Her- 


Chip 


steller benannte parallele 
Schnittstelle, die inzwi- 
schen zum Standard gewor- 
den ist. 


Ein elektronisches Bauteil, 
das eine bestimmte Anzahl 
von Speicher- oder Schalt- 
elementen enthält. 
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Co- 


PC POPULÄR 


Schneller Prozessor für 


Prozessor rechenintensive Aufgaben- 


Code 


CPU 


DIP- 


Schalter 


DOS 


EDV 


EGA 


stellungen, der zusätzlich 
zum Haupt-Prozessor ein- 
gesetzt werden kann. Bei 
Personal-Computern als 
8087 für Xis, 80287 für 
ATs und 80387 für die 
386er-Rechner bezeichnet. 


In der EDV Fachbegriff für 
Schlüssel, nach dem die 
Zeichen im Rechner abge- 
legt, erkannt und bearbeitet 
werden. 


Central Processing Unit, 
Zentraleinheit, koordiniert 
die Abläufe im Rechner. 


Dual Inline Package-Schal- 
ter. Eine Anzahl Kippschal- 
ter im Mini-Gehäuse (auch 
Mäuseklavier genannt) 
zum Umstellen der Para- 
meter oder der werkseiti- 
gen Einstellungen bei 
Druckern, Computern, Er- 
weiterungskarten, etc. 


Abkürzung für Disk Opera- 
ting System (Disketten-Be- 
triebssystem). Siehe auch 
MS-DOS. 


Mittlerweile eingebürger- 
ter Begrifffür Elektronische 
Daten-Verarbeitung. 


Enhanced Graphics Adap- 
ter, verbesserter Grafik- 
Adapter (640 x 350 Pixel in 
16/64 Farben). 
Verschiedene Arten dieser 
Karte (EGA-Wonder, 
EGA-HiRes) erreichen so- 
gar noch eine höhere Auf- 
lösung. 


AT 588 34 


AT 588 31 E 


AT 588 33 © 


AT 588 35 


AT 588 29 


Computer sind nicht nur Gebrauchsgegenstände. Sie werden 
zunehmend auch von Künstlern als Motiv entdeckt. Einige besonders 
gut gelungene Arbeiten haben wir für Sie, unsere Leser, reservieren 
können. Alle Motive sind strikt auf eine Auflage von 

99 Exemplaren limitiert und von der Künstlerin, Sybille Areco, 

handsigniert und numeriert. Die Exponate werden nach Bestelleingang 
im 24-Farbendruck von Hand gefertigt, die Vorlage nach 
dem 99. Druck vernichtet. Unser Angebot: Jedes Motiv 
PR Hase nur DM 85,-, zwei Motive DM 150,-, drei DM 210,- und 
u vier Motive nur DM 250,-. Jedes Bild ist 30 x 40 Zentimeter 
: groß und kommt im Passpartout in stabiler Verpackung 
(im Preis enthalten). 
Lieferzeit nach Bestelleingang: ca. drei Wochen. 


AT 588 30 
Ip 


Bestellcoupon 


Hiermit bestelle ich in Kenntnis ihrer Verkaufsbedingungen folgende Exponate: 


Nr.: 


Ich zahle: (Zutreffendes bitte ankreuzen!) 
per beigefügtem Scheck U] Schein DD Gegen Bankabbuchung am Versandtag U 


Meine Bank (mit Ortsname) 
Meine Kontonummer 


Meine Bankleitzahl _ (steht aufjedem Bankauszug) 


Nachname,  _ nur ee Voriame 
PEAK -_ | er et  :SEW/N 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. 
Wichtig: Scheckeinreichung und Bankabbuchung erfolgen erst nach dem Versand. Keine 
Nachnahme möglich. Auf Wunsch Rechnung mit ausgewiesener Mehrwertsteuer. 


Unterschrift 
Bitte ausschneiden und einsenden an 


AT 588 25 AT 588 26 AKTUELL-VERLAG 
Heßstraße 90 


8000 München 40 


File 


GEM 


Engl. Bezeichnung für 


Datei. 


Graphics Environment Ma- 
nager. Bezeichnet die grafi- 
sche Benutzeroberfläche 
von Digital Research. 


Hardcopy Die Ausgabe des Bild- 


Interface 


ISDN 


schirmspeichers auf einen 
Drucker. Der komplette ak- 
tuelle Bildschirm wird aus- 
gedruckt. Schneller Aufruf 
über die Tasten Shift-PrtSc. 


Schnittstelle, Port. An- 
schlußpunkt für periphere 
Geräte am Rechner, bei- 
spielsweise Drucker, Mo- 
dems oder Meß- und Über- 
wachungsgeräte. 


Integrated Services Digital 
Network, einheitliches öf- 
fentliches Netzwerk der 
deutschen Bundespost zur 
Übertragung digitaler Da- 
ten. Durch die Digitalisie- 
rung der Daten können 
gleichzeitig Telefongesprä- 
che, Computerdaten und 
Bilder übermittelt werden. 


kiloByte, Abk. für 1000 (10 
hoch 3). Bei dieser Abkür- 
zung treten häufig Ver- 
wechslungen auf. Je nach 
Schreibweise des Anfangs- 
buchstabens ist ein anderer 
Wert gemeint. 


Keyboard Engl. Bezeichnung für die 


Laptop 


Mailbox 


MB 


Mother- 
board 


Tastatur. 
Batteriebetriebener PC, 
vollwertiger, handlicher 


‚Schoßcomputer’ und trag- 
barer Personal-Computer 
für unterwegs. 


Elektronischer Briefkasten, 
Sammelpunkt für private 
und öffentliche Nachrich- 
ten, die über das Telefon- 
netz zwischen verschiede- 


nen Computersystemen 
ausgetauscht werden 
können. 


MegaByte, 1 MB = 1024 KB 
(2 hoch 20). 


Hauptplatine eines Rech- 
ners. 


MS-DOS MicroSoft Disk Operating 


05/2 


parallel 


Port 


Puffer 


System. Von Microsoft ent- 
wickeltes Betriebssystem 
für PC, das von Diskette 
oder Harddisk geladen 
wird. Allgemein als Stan- 
dard anerkannt. 


Operating System 2, neues 
leistungsstarkes Betriebssy- 
stem für Personal-Compu- 
ter. In Zusammenarbeit 
zwischen Microsoft und 
IBM entwickelt. 


Art der Datenübertragung, 
bei der gleichzeitig 8 Bit (1 
Byte) über verschiedene 
Leitungen nebeneinander 
übermittelt werden (siehe 
seriell). Als Standard hat 
sich die Centronics-Schnitt- 
stelle durchgesetzt. 


Lat. „porta“ für die „Pforte“, 
siehe Interface. 


Flüchtiger Zwischenspei- 
cher zum Sammeln von 
Daten, die anschließend 
paketweise übertragen wer- 
den. 


Pulldown-Bezeichnet eine Fenster- 


Menü 


Root 


Schnitt- 
stelle 


Seriell 


Software 


technik, bei der einzelne 
Menüs bei Bedarf aus einer 
einzelnen Zeile wie ein 
Rolladen heruntergezogen 
werden und neue Auswahl- 
möglichkeiten eröffnen. 


Engl. für Wurzel, Ur- 
sprung. Bezeichnet das 
übergeordnete Hauptver- 
zeichnis eines externen 
Speichermediums. 


siehe Interface. 


Art der Datenübertragung, 
bei der jedes Byte in acht 
Bit zerlegt und nacheinan- 
der durch eine einzige Lei- 
tung übertragen wird (siehe 
parallel). 

Zu den seriellen Schnitt- 
stellen gehören unter ande- 
rem die RS 232, RS 432 und 
die V-24. 


Engl. für „weiche Ware“, 
allgemeine Bezeichnung 
für Programme. Enthält 
eine, von Programm zu 
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Programm _ unterschiedli- 
che Anzahl von Befehlen, 
die zur Durchführungeiner 
bestimmten Aufgabe vom 
Rechner der Reihe nach ab- 
gearbeitet werden. 


Von Nassi und Ben Shnei- 
derman entwickelte grafi- 
sche Darstellung des 
Datenflusses in Program- 
men unter Verwendung 
von einheitlichen Sym- 
bolen. 


Strukto- 
gramm 


Sub- Engl. für Unterverzeich- 

directory nis. Dient auf einem Spei- 
chermedium zum Anlegen 
und Sammeln von Daten 
und Programmen verschie- 
dener Anwendungsgebiete 
in voneinander unabhängi- 
gen Verzeichnissen (direc- 
tories). Erhöht die Über- 
sichtlichkeit und Zugriffs- 
geschwindigkeit. 


Support Unterstützung, Hilfelei- 
stung durch den Händler 
oder Hersteller nach dem 
Verkaufeines Gerätes oder 
Programmes. 


Terminal „Unintelligentes* Daten- 
endgerät zur Datenein-und 
-ausgabe, das über Leitun- 
gen mit einem Großrech- 
ner verbunden ist. Im Ge- 
gensatz zu einem Personal- 
Computer ist ein Terminal 
alleine nicht einsatzfähig. 


Tools Engl. für „Werkzeuge“, sie- 
he Utility in Heft 8/88. 

Wild Ähneln in ihrer Handha- 

Cards bung den Jokern beim Kar- 


tenspiel. Sie können jedes 
beliebige Zeichen aufneh- 
men. Äußerst hilfreich vor 
allen Dingen auf der Be- 
triebssystemebene und 
beim Suchen und Ersetzen. 
Als Jokerzeichen werden 
allgemein das Fragezei- 
chenals Ersatz für ein einzi- 
ges beliebiges Zeichen und 
der Stern “** als Ersatz für 
mehrere zusammenhän- 
gende Zeichen verwendet. 


COMPUTERN 


_LEICHI 
GEMACHT 


